diff options
Diffstat (limited to 'src/client/elm/LoggedIn/Home/Update.elm')
| -rw-r--r-- | src/client/elm/LoggedIn/Home/Update.elm | 14 | 
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 +      )  | 
