From 4d93cbc79f32d5a15ceb7e8cf3786457d20c9bc5 Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <karchnu@karchnu.fr>
Date: Sun, 31 Mar 2024 12:06:25 +0200
Subject: [PATCH] Domain list: do not see disconnected user domain list.

---
 src/App/Container.purs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/App/Container.purs b/src/App/Container.purs
index ef6cf12..7f5aa93 100644
--- a/src/App/Container.purs
+++ b/src/App/Container.purs
@@ -632,6 +632,8 @@ handleAction = case _ of
     H.modify_ _ { notif = NoNotification }
 
   Disconnection -> do
+    handleAction $ Routing Home
+
     H.put $ initialState unit
 
     handleAction $ ToggleAuthenticated Nothing
@@ -640,8 +642,6 @@ handleAction = case _ of
     sessionstorage <- H.liftEffect $ Window.sessionStorage =<< HTML.window
     H.liftEffect $ Storage.clear sessionstorage
 
-    handleAction $ Routing Home
-
   -- | `dnsmanagerd websocket component` wants to do something.
   DNSManagerDaemonEvent ev -> case ev of
     WS.MessageReceived (Tuple _ message) -> do