Using persona to validate emails

1 files changed, 31 insertions, 0 deletions

diff --git a/src/client/elm/View/Page.elm b/src/client/elm/View/Page.elm
new file mode 100644
index 0000000..763734d
--- /dev/null
+++ b/src/client/elm/View/Page.elm
@@ -0,0 +1,31 @@
+module View.Page
+  ( renderPage
+  ) where
+
+import Html exposing (..)
+
+import Model exposing (Model)
+import Model.View exposing (..)
+
+import View.Header exposing (renderHeader)
+import View.Loading exposing (renderLoading)
+import View.SignIn exposing (renderSignIn)
+import View.LoggedIn exposing (renderLoggedIn)
+
+renderPage : Model -> Html
+renderPage model =
+  div
+    []
+    [ renderHeader model
+    , renderMain model
+    ]
+
+renderMain : Model -> Html
+renderMain model =
+  case model.view of
+    LoadingView ->
+      renderLoading
+    SignInView signInView ->
+      renderSignIn model signInView
+    LoggedInView loggedInView ->
+      renderLoggedIn model loggedInView