diff options
Diffstat (limited to 'src/client/View.elm')
-rw-r--r-- | src/client/View.elm | 36 |
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 + ] |