diff options
Diffstat (limited to 'src/client/Update.elm')
| -rw-r--r-- | src/client/Update.elm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/client/Update.elm b/src/client/Update.elm index df19775..374c5d0 100644 --- a/src/client/Update.elm +++ b/src/client/Update.elm @@ -22,7 +22,7 @@ type Action = | GoSignInView | SignInError String | UpdateSignIn SignInAction - | GoPaymentView String Payments Payers + | GoPaymentView String Payments Int Payers | UpdatePayment PaymentAction actions : Signal.Mailbox Action @@ -37,8 +37,8 @@ updateModel action model = { model | currentTime <- time } GoSignInView -> { model | view <- V.SignInView initSignInView } - GoPaymentView userName payments payers -> - { model | view <- V.PaymentView (initPaymentView userName payments payers) } + GoPaymentView userName payments paymentsCount payers -> + { model | view <- V.PaymentView (initPaymentView userName payments paymentsCount payers) } SignInError msg -> let signInView = { initSignInView | result <- Just (Err msg) } in { model | view <- V.SignInView signInView } |