diff --git a/src/App/Container.purs b/src/App/Container.purs index fe44f0d..93b8ebb 100644 --- a/src/App/Container.purs +++ b/src/App/Container.purs @@ -719,24 +719,24 @@ handleAction = case _ of handleAction $ Log $ ErrorLog $ "Domain not acceptable (see accepted domain list)." handleAction $ DispatchDNSMessage m m@(DNSManager.MkAcceptedDomains _) -> do - handleAction $ Log $ SuccessLog $ "Received the list of accepted domains!" + handleAction $ Log $ SuccessLog $ "Received the list of accepted domains." handleAction $ DispatchDNSMessage m m@(DNSManager.MkLogged logged_message) -> do - handleAction $ Log $ SuccessLog $ "Authenticated to dnsmanagerd!" + handleAction $ Log $ SuccessLog $ "Authenticated to dnsmanagerd." H.tell _nav unit $ NavigationInterface.ToggleAdmin logged_message.admin - handleAction $ AddNotif $ GoodNotification "You are now authenticated!" + handleAction $ AddNotif $ GoodNotification "You are now authenticated." handleAction $ DispatchDNSMessage m m@(DNSManager.MkDomainAdded response) -> do handleAction $ Log $ SuccessLog $ "Domain added: " <> response.domain handleAction $ AddNotif $ GoodNotification $ "You have just registered the domain \"" - <> response.domain <> "\"! 🥳 You can now manage it (click on its button)." + <> response.domain <> "\". 🥳 You can now manage it (click on its button)." handleAction $ DispatchDNSMessage m (DNSManager.MkRRReadOnly response) -> do handleAction $ Log $ ErrorLog $ "Trying to modify a read-only resource! " <> "domain: " <> response.domain <> "resource rrid: " <> show response.rr.rrid m@(DNSManager.MkRRUpdated _) -> do - handleAction $ Log $ SuccessLog $ "Resource updated!" + handleAction $ Log $ SuccessLog $ "Resource updated." handleAction $ DispatchDNSMessage m m@(DNSManager.MkRRAdded response) -> do handleAction $ Log $ SuccessLog $ "Resource Record added: " <> response.rr.rrtype @@ -745,25 +745,25 @@ handleAction = case _ of handleAction $ Log $ SuccessLog $ "Received zonefile for " <> response.domain handleAction $ DispatchDNSMessage m (DNSManager.MkInvalidDomainName _) -> do - handleAction $ Log $ ErrorLog $ "The domain is not valid!" + handleAction $ Log $ ErrorLog $ "The domain is not valid." handleAction $ AddNotif $ BadNotification $ "Invalid domain name." m@(DNSManager.MkDomainDeleted response) -> do - let successlog = "The domain \"" <> response.domain <> "\" has been deleted!" + let successlog = "The domain \"" <> response.domain <> "\" has been deleted." handleAction $ Log $ SuccessLog successlog handleAction $ AddNotif $ GoodNotification successlog handleAction $ DispatchDNSMessage m m@(DNSManager.MkRRDeleted response) -> do - handleAction $ Log $ SuccessLog $ "RR (rrid: \"" <> show response.rrid <> "\") has been deleted!" + handleAction $ Log $ SuccessLog $ "RR (rrid: \"" <> show response.rrid <> "\") has been deleted." handleAction $ DispatchDNSMessage m m@(DNSManager.MkZone _) -> do - handleAction $ Log $ SuccessLog $ "Zone received!" + handleAction $ Log $ SuccessLog $ "Zone received." handleAction $ DispatchDNSMessage m (DNSManager.MkInvalidRR response) -> do let errorlog = "Invalid resource record: " <> A.intercalate ", " response.errors handleAction $ Log $ ErrorLog errorlog handleAction $ AddNotif $ BadNotification errorlog (DNSManager.MkSuccess _) -> do - handleAction $ Log $ SuccessLog $ "(generic) Success!" + handleAction $ Log $ SuccessLog $ "(generic) Success." DNSManager.MkOrphanDomainList response -> do handleAction $ Log $ SuccessLog "Received orphan domain list." H.tell _admini unit (AdminInterface.GotOrphanDomainList response.domains)