(minor) remove some logs.

beta
Philippe Pittoli 2023-07-12 23:57:44 +02:00
parent c0ed930bea
commit bf0db1417d
1 changed files with 3 additions and 3 deletions

View File

@ -429,7 +429,7 @@ handleAction = case _ of
Nothing -> H.raise $ Log $ SimpleLog $ "Cannot find simple RR rrid: " <> show local_rr_id Nothing -> H.raise $ Log $ SimpleLog $ "Cannot find simple RR rrid: " <> show local_rr_id
Just local_rr -> do Just local_rr -> do
let rr = fromLocalSimpleRRRepresentationToResourceRecord local_rr 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 message <- H.liftEffect
$ DNSManager.serialize $ DNSManager.serialize
$ DNSManager.MkUpdateRR { domain: state._current_domain, rr: rr } $ 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 Nothing -> H.raise $ Log $ SimpleLog $ "Cannot find MX RR rrid: " <> show local_rr_id
Just local_rr -> do Just local_rr -> do
let rr = fromLocalMXRRRepresentationToResourceRecord local_rr 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 message <- H.liftEffect
$ DNSManager.serialize $ DNSManager.serialize
$ DNSManager.MkUpdateRR { domain: state._current_domain, rr: rr } $ 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 Nothing -> H.raise $ Log $ SimpleLog $ "Cannot find SRV RR rrid: " <> show local_rr_id
Just local_rr -> do Just local_rr -> do
let rr = fromLocalSRVRRepresentationToResourceRecord local_rr 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 message <- H.liftEffect
$ DNSManager.serialize $ DNSManager.serialize
$ DNSManager.MkUpdateRR { domain: state._current_domain, rr: rr } $ DNSManager.MkUpdateRR { domain: state._current_domain, rr: rr }