Container now provides messages from dnsmanagerd to the ZoneInterface module.

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