Add a payment from the UI, it needs polishing however

3 files changed, 34 insertions, 15 deletions

diff --git a/src/client/Model/View/PaymentView.elm b/src/client/Model/View/PaymentView.elm
new file mode 100644
index 0000000..cea7d2e
--- /dev/null
+++ b/src/client/Model/View/PaymentView.elm
@@ -0,0 +1,19 @@
+module Model.View.PaymentView
+  ( PaymentView
+  , initPaymentView
+  ) where
+
+import Model.Payment exposing (Payments)
+
+type alias PaymentView =
+  { name : String
+  , cost : String
+  , payments : Payments
+  }
+
+initPaymentView : Payments -> PaymentView
+initPaymentView payments =
+  { name = ""
+  , cost = ""
+  , payments = payments
+  }
diff --git a/src/client/Model/View/SignIn.elm b/src/client/Model/View/SignIn.elm
deleted file mode 100644
index 0a973e2..0000000
--- a/src/client/Model/View/SignIn.elm
+++ /dev/null
@@ -1,15 +0,0 @@
-module Model.View.SignIn
-  ( SignIn
-  , initSignIn
-  ) where
-
-type alias SignIn =
-  { login : String
-  , result : Maybe (Result String String)
-  }
-
-initSignIn : SignIn
-initSignIn =
-  { login = ""
-  , result = Nothing
-  }
diff --git a/src/client/Model/View/SignInView.elm b/src/client/Model/View/SignInView.elm
new file mode 100644
index 0000000..0fbce39
--- /dev/null
+++ b/src/client/Model/View/SignInView.elm
@@ -0,0 +1,15 @@
+module Model.View.SignInView
+  ( SignInView
+  , initSignInView
+  ) where
+
+type alias SignInView =
+  { login : String
+  , result : Maybe (Result String String)
+  }
+
+initSignInView : SignInView
+initSignInView =
+  { login = ""
+  , result = Nothing
+  }