From 70720548c9af024dbb6080638ac8e5470c2213eb Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 25 Jun 2016 15:10:03 +0200
Subject: Use the search to view either punctual or monthly payments

---
 src/client/elm/Model.elm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'src/client/elm/Model.elm')

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)
-- 
cgit v1.2.3