diff options
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 |