From 9cba4f7dafddec71c909c91b05c5fab09c572641 Mon Sep 17 00:00:00 2001
From: Philippe PITTOLI <karchnu@karchnu.fr>
Date: Sun, 14 Apr 2024 17:48:35 +0200
Subject: [PATCH] DMARC: fix DMARC update.

---
 src/App/Page/Zone.purs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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 }