aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/LoggedIn/Home/Update.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/elm/LoggedIn/Home/Update.elm')
-rw-r--r--src/client/elm/LoggedIn/Home/Update.elm14
1 files changed, 7 insertions, 7 deletions
diff --git a/src/client/elm/LoggedIn/Home/Update.elm b/src/client/elm/LoggedIn/Home/Update.elm
index af3504a..562cd20 100644
--- a/src/client/elm/LoggedIn/Home/Update.elm
+++ b/src/client/elm/LoggedIn/Home/Update.elm
@@ -9,19 +9,12 @@ import LoggedData exposing (LoggedData)
import LoggedIn.Home.Msg as HomeMsg
import LoggedIn.Home.Model as HomeModel
-import LoggedIn.Home.AddPayment.Update as AddPaymentUpdate
-
update : LoggedData -> HomeMsg.Msg -> HomeModel.Model -> (HomeModel.Model, Cmd HomeMsg.Msg)
update loggedData msg homeModel =
case msg of
HomeMsg.NoOp -> (homeModel, Cmd.none)
- HomeMsg.UpdateAdd addPaymentMsg ->
- ( { homeModel | add = AddPaymentUpdate.update addPaymentMsg homeModel.add }
- , Cmd.none
- )
-
HomeMsg.ToggleEdit id ->
( { homeModel | paymentEdition = if homeModel.paymentEdition == Just id then Nothing else Just id }
, Cmd.none
@@ -52,3 +45,10 @@ update loggedData msg homeModel =
}
, Cmd.none
)
+
+ HomeMsg.AddPaymentMsg formMsg ->
+ ( { homeModel
+ | addPayment = Form.update formMsg homeModel.addPayment
+ }
+ , Cmd.none
+ )