Allow to revert to Zone pages on reload.

src/App/Container.purs

@@ -326,7 +326,9 @@ handleAction = case _ of
   Routing page -> do
     -- Store the current page we are on and restore it when we reload.
     sessionstorage <- H.liftEffect $ Window.sessionStorage =<< HTML.window
-    H.liftEffect $ Storage.setItem "current-page" (show page) sessionstorage
+    H.liftEffect $ Storage.setItem "current-page" (case page of
+      Zone _ -> "Zone"
+      _      -> show page) sessionstorage
 
     _ <- case page of
       Zone zone  -> H.liftEffect $ Storage.setItem "current-zone" zone sessionstorage

src/App/Page/DomainList.purs

@@ -253,17 +253,17 @@ handleAction = case _ of
     { newDomainForm } <- H.get
     let new_domain = build_new_domain newDomainForm.new_domain newDomainForm.selected_domain
 
-    case newDomainForm._errors, new_domain of
-      _, "" ->
+    case newDomainForm.new_domain, newDomainForm._errors, new_domain of
+      "", _, _ ->
         H.raise $ Log $ UnableToSend "You didn't enter the new domain!"
-      [], _ -> do
+      _, [], _ -> do
         message <- H.liftEffect
           $ DNSManager.serialize
           $ DNSManager.MkNewDomain { domain: new_domain }
         H.raise $ MessageToSend message
         H.raise $ Log $ SystemLog $ "Add a new domain (" <> new_domain <> ")"
         handleAction $ HandleNewDomainInput $ INP_newdomain ""
-      _, _ ->
+      _, _, _ ->
         H.raise $ Log $ UnableToSend $ "The new domain name is invalid."
 
 handleQuery :: forall a m. MonadAff m => Query a -> H.HalogenM State Action () Output m (Maybe a)