Container now provides messages from dnsmanagerd to the ZoneInterface module.
This commit is contained in:
parent
5dc03a9649
commit
8130a90f4a
@ -205,7 +205,12 @@ handleAction = case _ of
|
||||
|
||||
-- TODO: depending on the current page, we should provide the received message to different components.
|
||||
DNSManagerDaemonEvent ev -> case ev of
|
||||
WS.MessageReceived (Tuple _ message) -> H.tell _dli unit (DomainListInterface.MessageReceived message)
|
||||
WS.MessageReceived (Tuple _ message) -> do
|
||||
{ current_page } <- H.get
|
||||
case current_page of
|
||||
DomainList -> H.tell _dli unit (DomainListInterface.MessageReceived message)
|
||||
Zone _ -> H.tell _zi unit (ZoneInterface.MessageReceived message)
|
||||
_ -> H.tell _log unit (Log.Log $ SystemLog "unexpected message from dnsmanagerd")
|
||||
WS.WSJustConnected -> do
|
||||
H.tell _log unit (Log.Log $ SimpleLog "Connection with dnsmanagerd was closed, let's re-authenticate")
|
||||
handleAction AuthenticateToDNSManager
|
||||
|
Loading…
Reference in New Issue
Block a user