Remove useless message in the logs.
parent
755a2a577d
commit
b8b766007c
|
@ -638,8 +638,7 @@ handleAction = case _ of
|
||||||
handleAction $ Log $ SuccessLog $ "Resource Record added: " <> response.rr.rrtype
|
handleAction $ Log $ SuccessLog $ "Resource Record added: " <> response.rr.rrtype
|
||||||
handleAction $ DispatchDNSMessage m
|
handleAction $ DispatchDNSMessage m
|
||||||
m@(DNSManager.MkGeneratedZoneFile response) -> do
|
m@(DNSManager.MkGeneratedZoneFile response) -> do
|
||||||
handleAction $ Log $ SuccessLog $ "Received the generated zonefile for " <> response.domain
|
handleAction $ Log $ SuccessLog $ "Received zonefile for " <> response.domain
|
||||||
handleAction $ Log $ SuccessLog $ "TODO: show it, " <> response.zonefile
|
|
||||||
handleAction $ DispatchDNSMessage m
|
handleAction $ DispatchDNSMessage m
|
||||||
(DNSManager.MkInvalidDomainName _) -> do
|
(DNSManager.MkInvalidDomainName _) -> do
|
||||||
handleAction $ Log $ ErrorLog $ "The domain is not valid!"
|
handleAction $ Log $ ErrorLog $ "The domain is not valid!"
|
||||||
|
|
Loading…
Reference in New Issue