diff options
| author | Joris | 2015-09-06 12:39:03 +0200 |
|---|---|---|
| committer | Joris | 2015-09-06 12:39:03 +0200 |
| commit | e10531ba4e60c8709088798763ae3bae6608f9c9 (patch) | |
| tree | f1550fab8833f0b31831ebb2e943a51eeaa41ee2 /src/client/Update.elm | |
| parent | 24633871359ec9fbd63fdfebf79a6351b2792f77 (diff) | |
Show montly payments with an expandable mechanism
Diffstat (limited to 'src/client/Update.elm')
| -rw-r--r-- | src/client/Update.elm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/client/Update.elm b/src/client/Update.elm index 08547e3..6ee5ab6 100644 --- a/src/client/Update.elm +++ b/src/client/Update.elm @@ -15,7 +15,7 @@ import Model.View.SignInView exposing (..) import Model.View.LoggedView exposing (..) import Update.SignIn exposing (..) -import Update.Payment exposing (..) +import Update.LoggedView exposing (..) type Action = NoOp @@ -24,7 +24,7 @@ type Action = | SignInError String | UpdateSignIn SignInAction | GoLoggedView Users UserId Payments Payments Int Payers - | UpdatePayment PaymentAction + | UpdateLoggedView LoggedAction actions : Signal.Mailbox Action actions = Signal.mailbox NoOp @@ -49,9 +49,9 @@ updateModel action model = { model | view <- V.SignInView (updateSignIn signInAction signInView) } _ -> model - UpdatePayment paymentAction -> + UpdateLoggedView loggedAction -> case model.view of V.LoggedView loggedView -> - { model | view <- V.LoggedView (updatePayment model paymentAction loggedView) } + { model | view <- V.LoggedView (updateLoggedView model loggedAction loggedView) } _ -> model |