diff --git a/src/App/Container.purs b/src/App/Container.purs index db1a4d9..f84d7f6 100644 --- a/src/App/Container.purs +++ b/src/App/Container.purs @@ -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!"