From bf0db1417d32162b3dcf21cee06691953b53dc33 Mon Sep 17 00:00:00 2001 From: Philippe Pittoli Date: Wed, 12 Jul 2023 23:57:44 +0200 Subject: [PATCH] (minor) remove some logs. --- src/App/ZoneInterface.purs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/App/ZoneInterface.purs b/src/App/ZoneInterface.purs index cea677b..48d95ac 100644 --- a/src/App/ZoneInterface.purs +++ b/src/App/ZoneInterface.purs @@ -429,7 +429,7 @@ handleAction = case _ of Nothing -> H.raise $ Log $ SimpleLog $ "Cannot find simple RR rrid: " <> show local_rr_id Just local_rr -> do let rr = fromLocalSimpleRRRepresentationToResourceRecord local_rr - H.raise $ Log $ SimpleLog $ "Sync a simple RR: " <> show local_rr_id + -- H.raise $ Log $ SimpleLog $ "Save a simple RR: " <> show local_rr_id message <- H.liftEffect $ DNSManager.serialize $ DNSManager.MkUpdateRR { domain: state._current_domain, rr: rr } @@ -442,7 +442,7 @@ handleAction = case _ of Nothing -> H.raise $ Log $ SimpleLog $ "Cannot find MX RR rrid: " <> show local_rr_id Just local_rr -> do let rr = fromLocalMXRRRepresentationToResourceRecord local_rr - H.raise $ Log $ SimpleLog $ "Sync a MX RR: " <> show local_rr_id + -- H.raise $ Log $ SimpleLog $ "Save a MX RR: " <> show local_rr_id message <- H.liftEffect $ DNSManager.serialize $ DNSManager.MkUpdateRR { domain: state._current_domain, rr: rr } @@ -455,7 +455,7 @@ handleAction = case _ of Nothing -> H.raise $ Log $ SimpleLog $ "Cannot find SRV RR rrid: " <> show local_rr_id Just local_rr -> do let rr = fromLocalSRVRRepresentationToResourceRecord local_rr - H.raise $ Log $ SimpleLog $ "Sync a SRV RR: " <> show local_rr_id + -- H.raise $ Log $ SimpleLog $ "Save a SRV RR: " <> show local_rr_id message <- H.liftEffect $ DNSManager.serialize $ DNSManager.MkUpdateRR { domain: state._current_domain, rr: rr }