Adding UI to sign in and sign out

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 }