diff options
Diffstat (limited to 'src/client/elm/LoggedIn/User/Update.elm')
-rw-r--r-- | src/client/elm/LoggedIn/User/Update.elm | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/src/client/elm/LoggedIn/User/Update.elm b/src/client/elm/LoggedIn/User/Update.elm new file mode 100644 index 0000000..f44fee4 --- /dev/null +++ b/src/client/elm/LoggedIn/User/Update.elm @@ -0,0 +1,25 @@ +module LoggedIn.User.Update + ( update + ) where + +import Effects exposing (Effects) +import Form exposing (Form) + +import LoggedData exposing (LoggedData) + +import LoggedIn.User.Model as UserModel +import LoggedIn.User.Action as UserAction + +update : LoggedData -> UserAction.Action -> UserModel.Model -> (UserModel.Model, Effects UserAction.Action) +update loggedData action model = + case action of + + UserAction.NoOp -> + ( model + , Effects.none + ) + + UserAction.AddIncomeAction formAction -> + ( { model | addIncome = Form.update formAction model.addIncome } + , Effects.none + ) |