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