From 7f83836163e5d52856ead0d480e9c087ed5fbc03 Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <karchnu@karchnu.fr>
Date: Sun, 31 Mar 2024 20:01:12 +0200
Subject: [PATCH] "Still connecting" message has been nuked.

---
 src/App/Container.purs | 4 ++--
 src/App/WS.purs        | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/App/Container.purs b/src/App/Container.purs
index fca17ef..6abcb69 100644
--- a/src/App/Container.purs
+++ b/src/App/Container.purs
@@ -743,12 +743,12 @@ handleAction = case _ of
             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!"
diff --git a/src/App/WS.purs b/src/App/WS.purs
index c64aa92..6ace63f 100644
--- a/src/App/WS.purs
+++ b/src/App/WS.purs
@@ -3,7 +3,7 @@
 module App.WS where
 
 import Prelude (Unit, bind, discard, pure, show, void, when
-               , ($), (&&), (<$>), (<>), (>>=), (>=>), (<<<), map, (=<<))
+               , ($), (&&), (<$>), (<>), (>>=), (>=>), (<<<), map, (=<<), unit)
 
 import Control.Monad.Rec.Class (forever)
 import Control.Monad.Except (runExcept)
@@ -230,7 +230,7 @@ send_message message = do
       Nothing -> H.raise $ Log $ UnableToSend "Not connected to server."
       Just webSocket -> do
         H.liftEffect (WS.readyState webSocket) >>= case _ of
-          Connecting -> H.raise $ Log $ UnableToSend "Still connecting to server."
+          Connecting -> pure unit -- H.raise $ Log $ UnableToSend "Still connecting to server."
           Closing    -> H.raise $ Log $ UnableToSend "Connection to server is closing."
           Closed     -> do
             H.raise $ Log $ UnableToSend "Connection to server has been closed."