Clear all stored session data when user disconnects himself.

src/App/Container.purs

@@ -463,11 +463,10 @@ handleAction = case _ of
 
   Disconnection -> do
     H.put $ initialState unit
+
+    -- Remove all stored session data.
     sessionstorage <- H.liftEffect $ Window.sessionStorage =<< HTML.window
-    _ <- H.liftEffect $ Storage.removeItem "user-authd-token" sessionstorage
-    _ <- H.liftEffect $ Storage.removeItem "current-page"     sessionstorage
-    _ <- H.liftEffect $ Storage.removeItem "current-zone"     sessionstorage
-    handleAction $ Routing Home
+    H.liftEffect $ Storage.clear sessionstorage
 
   -- TODO: depending on the current page, we should provide the received message to different components.
   DNSManagerDaemonEvent ev -> case ev of