src/client/elm/LoggedIn/User/Update.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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
      )