Domain list: do not see disconnected user domain list.

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