Minor changes: slight change to some logs.
parent
5fc15be352
commit
065ca206da
|
@ -283,7 +283,6 @@ handleAction = case _ of
|
||||||
Nothing -> handleAction $ Log $ SimpleLog "no token!"
|
Nothing -> handleAction $ Log $ SimpleLog "no token!"
|
||||||
Just t -> do
|
Just t -> do
|
||||||
H.modify_ _ { token = Just t }
|
H.modify_ _ { token = Just t }
|
||||||
handleAction $ Log $ SimpleLog $ "Let's start again to auth to dnsmanagerd with this token: " <> t
|
|
||||||
handleAction AuthenticateToDNSManager
|
handleAction AuthenticateToDNSManager
|
||||||
|
|
||||||
AuthenticationInterfaceEvent ev -> case ev of
|
AuthenticationInterfaceEvent ev -> case ev of
|
||||||
|
@ -461,7 +460,7 @@ handleAction = case _ of
|
||||||
WS.MessageReceived (Tuple _ message) -> do
|
WS.MessageReceived (Tuple _ message) -> do
|
||||||
handleAction $ DecodeDNSMessage message
|
handleAction $ DecodeDNSMessage message
|
||||||
WS.WSJustConnected -> do
|
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
|
handleAction AuthenticateToDNSManager
|
||||||
H.tell _dli unit DomainListInterface.ConnectionIsUp
|
H.tell _dli unit DomainListInterface.ConnectionIsUp
|
||||||
WS.WSJustClosed -> H.tell _dli unit DomainListInterface.ConnectionIsDown
|
WS.WSJustClosed -> H.tell _dli unit DomainListInterface.ConnectionIsDown
|
||||||
|
@ -510,9 +509,9 @@ handleAction = case _ of
|
||||||
handleAction AuthenticateToDNSManager
|
handleAction AuthenticateToDNSManager
|
||||||
(DNSManager.MkErrorInvalidToken _) -> do
|
(DNSManager.MkErrorInvalidToken _) -> do
|
||||||
H.modify_ _ { token = Nothing, current_page = Home }
|
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
|
(DNSManager.MkDomainAlreadyExists _) -> do
|
||||||
handleAction $ Log $ SimpleLog $ "Failed! The domain already exists."
|
handleAction $ Log $ SimpleLog $ "[😈] Failed! The domain already exists."
|
||||||
m@(DNSManager.MkUnacceptableDomain _) -> do
|
m@(DNSManager.MkUnacceptableDomain _) -> do
|
||||||
handleAction $ Log $ SimpleLog $ "[😈] Failed! The domain is not acceptable (not in the list of accepted domains)."
|
handleAction $ Log $ SimpleLog $ "[😈] Failed! The domain is not acceptable (not in the list of accepted domains)."
|
||||||
handleAction $ DispatchDNSMessage m
|
handleAction $ DispatchDNSMessage m
|
||||||
|
|
Loading…
Reference in New Issue