diff options
author | Joris | 2016-06-03 20:27:16 +0200 |
---|---|---|
committer | Joris | 2016-06-03 20:27:16 +0200 |
commit | 8e3a7bf1cb83bbb6e3dcd54308eefa52a29cd679 (patch) | |
tree | d6ba0985a534a0e2e317b1edb0d4c999119d87ff /src/client/elm/LoggedIn/Income/Update.elm | |
parent | 3a88115d118f8256f3ff034dc359df42a9e4051c (diff) |
Migrate to elm 0.17
Diffstat (limited to 'src/client/elm/LoggedIn/Income/Update.elm')
-rw-r--r-- | src/client/elm/LoggedIn/Income/Update.elm | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/src/client/elm/LoggedIn/Income/Update.elm b/src/client/elm/LoggedIn/Income/Update.elm index 4e673fa..74920f3 100644 --- a/src/client/elm/LoggedIn/Income/Update.elm +++ b/src/client/elm/LoggedIn/Income/Update.elm @@ -1,25 +1,24 @@ -module LoggedIn.Income.Update +module LoggedIn.Income.Update exposing ( update - ) where + ) -import Effects exposing (Effects) import Form exposing (Form) import LoggedData exposing (LoggedData) import LoggedIn.Income.Model as IncomeModel -import LoggedIn.Income.Action as IncomeAction +import LoggedIn.Income.Msg as IncomeMsg -update : LoggedData -> IncomeAction.Action -> IncomeModel.Model -> (IncomeModel.Model, Effects IncomeAction.Action) +update : LoggedData -> IncomeMsg.Msg -> IncomeModel.Model -> (IncomeModel.Model, Cmd IncomeMsg.Msg) update loggedData action model = case action of - IncomeAction.NoOp -> + IncomeMsg.NoOp -> ( model - , Effects.none + , Cmd.none ) - IncomeAction.AddIncomeAction formAction -> - ( { model | addIncome = Form.update formAction model.addIncome } - , Effects.none + IncomeMsg.AddIncomeMsg formMsg -> + ( { model | addIncome = Form.update formMsg model.addIncome } + , Cmd.none ) |