Add a dialog to confirm income deletion

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)