aboutsummaryrefslogtreecommitdiff
path: root/src/client/View.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/View.elm')
-rw-r--r--src/client/View.elm36
1 files changed, 36 insertions, 0 deletions
diff --git a/src/client/View.elm b/src/client/View.elm
new file mode 100644
index 0000000..66c498a
--- /dev/null
+++ b/src/client/View.elm
@@ -0,0 +1,36 @@
+module View exposing
+ ( view
+ )
+
+import Html exposing (..)
+import Html.Attributes exposing (..)
+
+import Model exposing (Model)
+import Msg exposing (Msg)
+import Model.View exposing (..)
+import LoggedData
+import Dialog
+import Tooltip
+
+import View.Header as Header
+import View.Errors as Errors
+
+import SignIn.View as SignInView
+import LoggedIn.View as LoggedInView
+
+import Utils.Maybe as Maybe
+
+view : Model -> Html Msg
+view model =
+ div
+ []
+ [ Header.view model
+ , case model.view of
+ SignInView signIn ->
+ SignInView.view model signIn
+ LoggedInView loggedIn ->
+ LoggedInView.view model loggedIn
+ , Errors.view model.translations model.errors
+ , Dialog.view model.dialog
+ , Html.map Msg.Tooltip <| Tooltip.view model.tooltip
+ ]