blob: d69082d612e864eacd1c4986dfe5616cf5753d86 (
plain)
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
26
27
28
29
30
31
|
module Dialog.Update exposing
( update
)
import Form exposing (Form)
import Dialog.Msg as Dialog
import Dialog.Model as Dialog
update : Dialog.Msg -> Dialog.Model -> (Dialog.Model, Cmd Dialog.Msg)
update msg model =
case msg of
Dialog.NoOp ->
( model
, Cmd.none
)
Dialog.AddPaymentMsg formMsg ->
( { model
| addPayment = Form.update formMsg model.addPayment
}
, Cmd.none
)
Dialog.AddIncomeMsg formMsg ->
( { model
| addIncome = Form.update formMsg model.addIncome
}
, Cmd.none
)
|
