Remove useless message in the logs.

This commit is contained in:
Philippe Pittoli 2024-02-27 19:31:47 +01:00
parent 755a2a577d
commit b8b766007c

View File

@ -638,8 +638,7 @@ handleAction = case _ of
handleAction $ Log $ SuccessLog $ "Resource Record added: " <> response.rr.rrtype
handleAction $ DispatchDNSMessage m
m@(DNSManager.MkGeneratedZoneFile response) -> do
handleAction $ Log $ SuccessLog $ "Received the generated zonefile for " <> response.domain
handleAction $ Log $ SuccessLog $ "TODO: show it, " <> response.zonefile
handleAction $ Log $ SuccessLog $ "Received zonefile for " <> response.domain
handleAction $ DispatchDNSMessage m
(DNSManager.MkInvalidDomainName _) -> do
handleAction $ Log $ ErrorLog $ "The domain is not valid!"