DMARC: fix DMARC update.

This commit is contained in:
Philippe PITTOLI 2024-04-14 17:48:35 +02:00
parent f29265fe8b
commit 9cba4f7daf

View File

@ -650,7 +650,8 @@ handleAction = case _ of
Just rr -> do
H.modify_ _ { _currentRR = rr }
_ <- case rr.rrtype of
"DKIM" -> H.modify_ _ { dkim = fromMaybe DKIM.emptyDKIMRR rr.dkim }
"DKIM" -> H.modify_ _ { dkim = fromMaybe DKIM.emptyDKIMRR rr.dkim }
"DMARC" -> H.modify_ _ { dmarc = fromMaybe DMARC.emptyDMARCRR rr.dmarc }
_ -> pure unit
H.modify_ _ { rr_modal = UpdateRRModal }