Minor changes: slight change to some logs.
parent
5fc15be352
commit
065ca206da
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue