diff options
Diffstat (limited to 'src/client/elm/Model.elm')
| -rw-r--r-- | src/client/elm/Model.elm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/client/elm/Model.elm b/src/client/elm/Model.elm index 3eec89d..0cd714f 100644 --- a/src/client/elm/Model.elm +++ b/src/client/elm/Model.elm @@ -20,6 +20,9 @@ import LoggedIn.Model as LoggedInModel import SignIn.Model as SignInModel import Dialog +import Dialog.Model as DialogModel +import Dialog.Msg as DialogMsg + import Utils.Maybe exposing (isJust) type alias Model = @@ -28,7 +31,7 @@ type alias Model = , translations : Translations , conf : Conf , page : Page - , dialog : Dialog.Model View Msg + , dialog : Dialog.Model DialogModel.Model DialogMsg.Msg Msg } init : Json.Value -> Result String Page -> (Model, Cmd Msg) @@ -52,7 +55,7 @@ init payload result = , translations = translations , conf = conf , page = page - , dialog = Dialog.init Msg.Dialog + , dialog = Dialog.init DialogModel.init Msg.Dialog } Err error -> { view = SignInView (SignInModel.init (Just error)) @@ -60,6 +63,6 @@ init payload result = , translations = [] , conf = { currency = "" } , page = page - , dialog = Dialog.init Msg.Dialog + , dialog = Dialog.init DialogModel.init Msg.Dialog } in (model, Cmd.none) |