diff options
author | Joris | 2015-09-05 14:14:25 +0200 |
---|---|---|
committer | Joris | 2015-09-05 14:14:25 +0200 |
commit | cc6a51b5ca03ee1a3b5de7c32dd1324e1053f42a (patch) | |
tree | fe60948b87993908f73659c9dbd7ffd96498b7f8 /src/client/Update.elm | |
parent | 3b738e0d4cc65f314da7389d4542ec826ba0f454 (diff) |
Renaming PaymentView to LoggedView
Diffstat (limited to 'src/client/Update.elm')
-rw-r--r-- | src/client/Update.elm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/client/Update.elm b/src/client/Update.elm index 910f080..d643d4e 100644 --- a/src/client/Update.elm +++ b/src/client/Update.elm @@ -12,7 +12,7 @@ import Model.Payment exposing (Payments) import Model.Payers exposing (Payers) import Model.View as V import Model.View.SignInView exposing (..) -import Model.View.PaymentView exposing (..) +import Model.View.LoggedView exposing (..) import Update.SignIn exposing (..) import Update.Payment exposing (..) @@ -23,7 +23,7 @@ type Action = | GoSignInView | SignInError String | UpdateSignIn SignInAction - | GoPaymentView Users UserId Payments Int Payers + | GoLoggedView Users UserId Payments Int Payers | UpdatePayment PaymentAction actions : Signal.Mailbox Action @@ -38,8 +38,8 @@ updateModel action model = { model | currentTime <- time } GoSignInView -> { model | view <- V.SignInView initSignInView } - GoPaymentView users me payments paymentsCount payers -> - { model | view <- V.PaymentView (initPaymentView users me payments paymentsCount payers) } + GoLoggedView users me payments paymentsCount payers -> + { model | view <- V.LoggedView (initLoggedView users me payments paymentsCount payers) } SignInError msg -> let signInView = { initSignInView | result <- Just (Err msg) } in { model | view <- V.SignInView signInView } @@ -51,7 +51,7 @@ updateModel action model = model UpdatePayment paymentAction -> case model.view of - V.PaymentView paymentView -> - { model | view <- V.PaymentView (updatePayment model paymentAction paymentView) } + V.LoggedView loggedView -> + { model | view <- V.LoggedView (updatePayment model paymentAction loggedView) } _ -> model |