Add a dialog to confirm income deletion

1 files changed, 10 insertions, 2 deletions

diff --git a/src/client/elm/Update.elm b/src/client/elm/Update.elm
index bcbfb6c..db8889f 100644
--- a/src/client/elm/Update.elm
+++ b/src/client/elm/Update.elm
@@ -25,11 +25,13 @@ import SignIn.Model as SignInModel
 import SignIn.Msg as SignInMsg
 import SignIn.Update as SignInUpdate
 
+import Dialog
+
 import Utils.Http exposing (errorKey)
 
 update : Msg -> Model -> (Model, Cmd Msg)
-update action model =
-  case action of
+update msg model =
+  case msg of
 
     NoOp ->
       (model, Cmd.none)
@@ -65,6 +67,12 @@ update action model =
           |> Task.perform (always NoOp) (always GoSignInView)
       )
 
+    Dialog dialogMsg ->
+      let (newDialog, command) = Dialog.update dialogMsg model.dialog
+      in  ( { model | dialog = newDialog }
+          , command
+          )
+
 applySignIn : Model -> SignInMsg.Msg -> Model
 applySignIn model signInMsg =
   case model.view of