src/client/elm/LoggedIn/Income/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

module LoggedIn.Income.Update exposing
  ( update
  )

import Form exposing (Form)

import LoggedData exposing (LoggedData)

import LoggedIn.Income.Model as Income
import LoggedIn.Income.Msg as Income

update : LoggedData -> Income.Msg -> Income.Model -> (Income.Model, Cmd Income.Msg)
update loggedData msg model =
  case msg of

    Income.NoOp ->
      ( model
      , Cmd.none
      )

    Income.AddIncomeMsg formMsg ->
      ( { model | addIncome = Form.update Income.validation formMsg model.addIncome }
      , Cmd.none
      )