Use start-app for elm

1 files changed, 33 insertions, 0 deletions

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