diff --git a/src/App/Page/Zone.purs b/src/App/Page/Zone.purs index 0cecf4d..5440da4 100644 --- a/src/App/Page/Zone.purs +++ b/src/App/Page/Zone.purs @@ -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 }