Add a payment from the UI, it needs polishing however

1 files changed, 6 insertions, 6 deletions

diff --git a/src/client/Update/SignIn.elm b/src/client/Update/SignIn.elm
index 0e118dc..0aa7c84 100644
--- a/src/client/Update/SignIn.elm
+++ b/src/client/Update/SignIn.elm
@@ -3,22 +3,22 @@ module Update.SignIn
   , updateSignIn
   ) where
 
-import Model.View.SignIn exposing (..)
+import Model.View.SignInView exposing (..)
 
 type SignInAction =
   UpdateLogin String
   | ValidLogin String
   | ErrorLogin String
 
-updateSignIn : SignInAction -> SignIn -> SignIn
-updateSignIn action signIn =
+updateSignIn : SignInAction -> SignInView -> SignInView
+updateSignIn action signInView =
   case action of
     UpdateLogin login ->
-      { signIn | login <- login }
+      { signInView | login <- login }
     ValidLogin message ->
-      { signIn
+      { signInView
       | login <- ""
       , result <- Just (Ok message)
       }
     ErrorLogin message ->
-      { signIn | result <- Just (Err message) }
+      { signInView | result <- Just (Err message) }