blob: 1072ef01308b558de7e8906aff24dda65bbfff53 (
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
|
module LoggedIn.Category.Update exposing
( update
)
import Form exposing (Form)
import LoggedData exposing (LoggedData)
import LoggedIn.Category.Model as Category
import LoggedIn.Category.Msg as Category
update : LoggedData -> Category.Msg -> Category.Model -> (Category.Model, Cmd Category.Msg)
update loggedData msg model =
case msg of
Category.NoOp ->
( model
, Cmd.none
)
Category.AddCategoryMsg formMsg ->
( { model | addCategory = Form.update Category.validation formMsg model.addCategory }
, Cmd.none
)
|
