Add a dialog to confirm income deletion

1 files changed, 7 insertions, 2 deletions

diff --git a/src/client/elm/LoggedIn/Income/Update.elm b/src/client/elm/LoggedIn/Income/Update.elm
index 74920f3..8fa47fc 100644
--- a/src/client/elm/LoggedIn/Income/Update.elm
+++ b/src/client/elm/LoggedIn/Income/Update.elm
@@ -10,8 +10,8 @@ import LoggedIn.Income.Model as IncomeModel
 import LoggedIn.Income.Msg as IncomeMsg
 
 update : LoggedData -> IncomeMsg.Msg -> IncomeModel.Model -> (IncomeModel.Model, Cmd IncomeMsg.Msg)
-update loggedData action model =
-  case action of
+update loggedData msg model =
+  case msg of
 
     IncomeMsg.NoOp ->
       ( model
@@ -22,3 +22,8 @@ update loggedData action model =
       ( { model | addIncome = Form.update formMsg model.addIncome }
       , Cmd.none
       )
+
+    IncomeMsg.ToggleTest ->
+      ( { model | test = not model.test }
+      , Cmd.none
+      )