Add a payment from the UI, it needs polishing however

2 files changed, 28 insertions, 6 deletions

diff --git a/src/client/Update/Payment.elm b/src/client/Update/Payment.elm
new file mode 100644
index 0000000..129ccde
--- /dev/null
+++ b/src/client/Update/Payment.elm
@@ -0,0 +1,22 @@
+module Update.Payment
+  ( PaymentAction(..)
+  , updatePayment
+  ) where
+
+import Model.View.PaymentView exposing (..)
+import Model.Payment exposing (..)
+
+type PaymentAction =
+  UpdateName String
+  | UpdateCost String
+  | UpdatePayments Payments
+
+updatePayment : PaymentAction -> PaymentView -> PaymentView
+updatePayment action paymentView =
+  case action of
+    UpdateName name ->
+      { paymentView | name <- name }
+    UpdateCost cost ->
+      { paymentView | cost <- cost }
+    UpdatePayments payments ->
+      { paymentView | payments <- payments }
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) }