From 065ca206daa54eb7f6d13ec1bda4e7abd7f31909 Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <karchnu@karchnu.fr>
Date: Sun, 11 Feb 2024 22:43:23 +0100
Subject: [PATCH] Minor changes: slight change to some logs.

---
 src/App/Container.purs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/App/Container.purs b/src/App/Container.purs
index d331b10..25befed 100644
--- a/src/App/Container.purs
+++ b/src/App/Container.purs
@@ -283,7 +283,6 @@ handleAction = case _ of
           Nothing -> handleAction $ Log $ SimpleLog "no token!"
           Just t -> do
             H.modify_ _ { token = Just t }
-            handleAction $ Log $ SimpleLog $ "Let's start again to auth to dnsmanagerd with this token: " <> t
             handleAction AuthenticateToDNSManager
 
   AuthenticationInterfaceEvent ev -> case ev of
@@ -461,7 +460,7 @@ handleAction = case _ of
     WS.MessageReceived (Tuple _ message) -> do
       handleAction $ DecodeDNSMessage message
     WS.WSJustConnected -> do
-      handleAction $ Log $ SimpleLog "Connection with dnsmanagerd was closed, let's re-authenticate"
+      handleAction $ Log $ SimpleLog "[🤖] connection with dnsmanagerd was closed, let's re-authenticate"
       handleAction AuthenticateToDNSManager
       H.tell _dli unit DomainListInterface.ConnectionIsUp
     WS.WSJustClosed -> H.tell _dli unit DomainListInterface.ConnectionIsDown
@@ -510,9 +509,9 @@ handleAction = case _ of
             handleAction AuthenticateToDNSManager
           (DNSManager.MkErrorInvalidToken _) -> do
             H.modify_ _ { token = Nothing, current_page = Home }
-            handleAction $ Log $ SimpleLog $ "Failed connection! Invalid token! Try re-authenticate."
+            handleAction $ Log $ SimpleLog $ "[😈] Failed connection! Invalid token! Try re-authenticate."
           (DNSManager.MkDomainAlreadyExists _) -> do
-            handleAction $ Log $ SimpleLog $ "Failed! The domain already exists."
+            handleAction $ Log $ SimpleLog $ "[😈] Failed! The domain already exists."
           m@(DNSManager.MkUnacceptableDomain _) -> do
             handleAction $ Log $ SimpleLog $ "[😈] Failed! The domain is not acceptable (not in the list of accepted domains)."
             handleAction $ DispatchDNSMessage m