From f9ab384d069ce74f8f6eaa2297f0f3d1551fe49d Mon Sep 17 00:00:00 2001 From: Philippe Pittoli Date: Sun, 9 Jul 2023 15:59:49 +0200 Subject: [PATCH] ZoneInterface outputs are taken care of. --- src/App/Container.purs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/App/Container.purs b/src/App/Container.purs index 4900f50..6f84260 100644 --- a/src/App/Container.purs +++ b/src/App/Container.purs @@ -30,6 +30,7 @@ data Action | DomainListComponentEvent DomainListInterface.Output | AuthenticationDaemonEvent WS.Output | DNSManagerDaemonEvent WS.Output + | ZoneInterfaceEvent ZoneInterface.Output | AuthenticateToDNSManager | Routing Page @@ -92,7 +93,7 @@ render state -- TODO render_home = render_nothing - render_zone domain = Bulma.box [ HH.slot_ _zi unit ZoneInterface.component domain ] + render_zone domain = Bulma.box [ HH.slot _zi unit ZoneInterface.component domain ZoneInterfaceEvent] authenticated = case state.token of Nothing -> false @@ -170,6 +171,11 @@ handleAction = case _ of state <- H.get H.tell _aai unit (AAI.ProvideState state.store_AuthenticationDaemonAdmin_state) + ZoneInterfaceEvent ev -> case ev of + ZoneInterface.MessageToSend message -> H.tell _ws_dns unit (WS.ToSend message) + ZoneInterface.Log message -> H.tell _log unit (Log.Log message) + ZoneInterface.DNSManagerReconnect -> handleAction AuthenticateToDNSManager + DomainListComponentEvent ev -> case ev of DomainListInterface.MessageToSend message -> H.tell _ws_dns unit (WS.ToSend message) DomainListInterface.Log message -> H.tell _log unit (Log.Log message)