From 50eeb340f884440af884f52de1143d242531dec3 Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <karchnu@karchnu.fr>
Date: Fri, 14 Jul 2023 06:03:57 +0200
Subject: [PATCH] Slight refactoring.

---
 src/App/ZoneInterface.purs | 37 +++++++++++++------------------------
 1 file changed, 13 insertions(+), 24 deletions(-)

diff --git a/src/App/ZoneInterface.purs b/src/App/ZoneInterface.purs
index 3e6c051..97fcafa 100644
--- a/src/App/ZoneInterface.purs
+++ b/src/App/ZoneInterface.purs
@@ -325,36 +325,15 @@ handleAction = case _ of
   AddRR form -> case form of
     Add_SRR -> do
       state <- H.get
-      case Validation.validateSRR state._current_entry of
-        Left _ -> H.raise $ Log $ SimpleLog "Cannot add this simple RR, some errors occured in the record"
-        Right newrr -> do
-          H.raise $ Log $ SimpleLog "Add new simple RR"
-          message <- H.liftEffect
-            $ DNSManager.serialize
-            $ DNSManager.MkAddRR { domain: state._current_domain, rr: newrr }
-          H.raise $ MessageToSend message
+      try_add_new_entry state._current_domain (Validation.validateSRR state._current_entry) "simple"
 
     Add_MXRR -> do
       state <- H.get
-      case Validation.validateMXRR state._current_entry_mx of
-        Left _ -> H.raise $ Log $ SimpleLog "Cannot add this MX RR, some errors occured in the record"
-        Right newrr -> do
-          H.raise $ Log $ SimpleLog "Add new MX"
-          message <- H.liftEffect
-            $ DNSManager.serialize
-            $ DNSManager.MkAddRR { domain: state._current_domain, rr: newrr }
-          H.raise $ MessageToSend message
+      try_add_new_entry state._current_domain (Validation.validateMXRR state._current_entry_mx) "MX"
 
     Add_SRVRR -> do
       state <- H.get
-      case Validation.validateSRVRR state._current_entry_srv of
-        Left _ -> H.raise $ Log $ SimpleLog "Cannot add this SRV RR, some errors occured in the record"
-        Right newrr -> do
-          H.raise $ Log $ SimpleLog "Add new SRV"
-          message <- H.liftEffect
-            $ DNSManager.serialize
-            $ DNSManager.MkAddRR { domain: state._current_domain, rr: newrr }
-          H.raise $ MessageToSend message
+      try_add_new_entry state._current_domain (Validation.validateSRVRR state._current_entry_srv) "SRV"
 
   UpdateLocalForm rr_id form -> case form of
     Update_Local_Form_SRR rr_update -> case rr_update of
@@ -488,6 +467,16 @@ handleAction = case _ of
     -- H.raise $ Log $ SimpleLog (show rr)
     H.raise $ Log $ SimpleLog (" => " <> val)
 
+  where
+    try_add_new_entry d v t = case v of
+        Left _ -> H.raise $ Log $ SimpleLog $ "Cannot add this " <> t <> " RR, some errors occured in the record"
+        Right newrr -> do
+          H.raise $ Log $ SimpleLog $ "Add new " <> t
+          message <- H.liftEffect
+            $ DNSManager.serialize
+            $ DNSManager.MkAddRR { domain: d, rr: newrr }
+          H.raise $ MessageToSend message
+
 handleQuery :: forall a m. MonadAff m => Query a -> H.HalogenM State Action () Output m (Maybe a)
 handleQuery = case _ of