From a45fc80ee8042477c4e8930890d1223e7ab903d1 Mon Sep 17 00:00:00 2001
From: Philippe PITTOLI <karchnu@karchnu.fr>
Date: Tue, 16 Apr 2024 00:06:13 +0200
Subject: [PATCH] Less exclamation points.

---
 src/App/Container.purs | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

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)