From 8130a90f4a0aa28c652c3d1f4a3b18e24bce089d Mon Sep 17 00:00:00 2001 From: Philippe Pittoli Date: Mon, 10 Jul 2023 04:08:02 +0200 Subject: [PATCH] Container now provides messages from dnsmanagerd to the ZoneInterface module. --- src/App/Container.purs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/App/Container.purs b/src/App/Container.purs index 6f84260..6d9537b 100644 --- a/src/App/Container.purs +++ b/src/App/Container.purs @@ -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