Prevent going to login/register manually when already logged-in

amilner42 · Dec 30, 2018 · f069433 · f069433
1 parent ae3686b
commit f069433
Showing 1 changed file with 20 additions and 4 deletions.
diff --git a/frontend/src/Main.elm b/frontend/src/Main.elm
@@ -153,12 +153,28 @@ changeRouteTo maybeRoute model =
                 |> updatePageModel Home GotHomeMsg model
 
         Just Route.Login ->
-            Login.init session
-                |> updatePageModel Login GotLoginMsg model
+            -- Don't go to login if they are already signed in.
+            case Session.viewer <| toSession model of
+                Nothing ->
+                    Login.init session
+                        |> updatePageModel Login GotLoginMsg model
+
+                Just _ ->
+                    ( closeMobileNavbar
+                    , Route.replaceUrl (Session.navKey session) Route.Home
+                    )
 
         Just Route.Register ->
-            Register.init session
-                |> updatePageModel Register GotRegisterMsg model
+            -- Don't go to register if they are already signed in.
+            case Session.viewer <| toSession model of
+                Nothing ->
+                    Register.init session
+                        |> updatePageModel Register GotRegisterMsg model
+
+                Just _ ->
+                    ( closeMobileNavbar
+                    , Route.replaceUrl (Session.navKey session) Route.Home
+                    )
 
 
 update : Msg -> Model -> ( Model, Cmd Msg )