Protect views from a State with an empty Session

This should simplify UserHome among other views.

1 files changed, 10 insertions, 0 deletions

diff --git a/client/src/Common.elm b/client/src/Common.elm
index a3106114d43a..63ba97b794ac 100644
--- a/client/src/Common.elm
+++ b/client/src/Common.elm
@@ -25,3 +25,13 @@ allErrors model =
                                 }
                 )
         )
+
+
+withSession : State.Model -> (State.Session -> Html State.Msg) -> Html State.Msg
+withSession model renderWithSession =
+    case model.session of
+        Nothing ->
+            div [] [ UI.paragraph "You need a valid session to view this page. Please attempt to log in." ]
+
+        Just session ->
+            renderWithSession session