diff options
Diffstat (limited to 'src/client/elm/Model.elm')
| -rw-r--r-- | src/client/elm/Model.elm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/client/elm/Model.elm b/src/client/elm/Model.elm index 9e9cdbb..3eec89d 100644 --- a/src/client/elm/Model.elm +++ b/src/client/elm/Model.elm @@ -6,6 +6,8 @@ module Model exposing import Time exposing (Time) import Json.Decode as Json +import Html.App as Html + import Page exposing (Page) import Init as Init exposing (Init) import Msg exposing (Msg) @@ -15,8 +17,8 @@ import Model.Translations exposing (..) import Model.Conf exposing (..) import Model.InitResult exposing (..) import LoggedIn.Model as LoggedInModel - import SignIn.Model as SignInModel +import Dialog import Utils.Maybe exposing (isJust) @@ -26,6 +28,7 @@ type alias Model = , translations : Translations , conf : Conf , page : Page + , dialog : Dialog.Model View Msg } init : Json.Value -> Result String Page -> (Model, Cmd Msg) @@ -49,6 +52,7 @@ init payload result = , translations = translations , conf = conf , page = page + , dialog = Dialog.init Msg.Dialog } Err error -> { view = SignInView (SignInModel.init (Just error)) @@ -56,5 +60,6 @@ init payload result = , translations = [] , conf = { currency = "" } , page = page + , dialog = Dialog.init Msg.Dialog } in (model, Cmd.none) |