diff options
Diffstat (limited to 'src/client/Update.elm')
| -rw-r--r-- | src/client/Update.elm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/src/client/Update.elm b/src/client/Update.elm index b96d899..3937888 100644 --- a/src/client/Update.elm +++ b/src/client/Update.elm @@ -6,10 +6,12 @@ module Update import Model exposing (Model) import Model.Payment exposing (Payments) +import Model.View exposing (..) type Action = NoOp - | Forbidden + | SignIn + | UpdateLogin String | UpdatePayments Payments actions : Signal.Mailbox Action @@ -20,7 +22,9 @@ updateModel action model = case action of NoOp -> model - Forbidden -> - { model | forbiddenAccess <- True } + SignIn -> + { model | view <- SignInView "" } + UpdateLogin login -> + { model | view <- SignInView login } UpdatePayments payments -> - { model | payments <- Just payments } + { model | view <- PaymentView payments } |