From a7db22556b91bc7c499e010b4c051f4442ad8ce2 Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 29 Dec 2015 22:38:42 +0100
Subject: Using persona to validate emails

---
 src/client/elm/View/Page.elm | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 src/client/elm/View/Page.elm

(limited to 'src/client/elm/View/Page.elm')

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
-- 
cgit v1.2.3