From a271d6034bc4cc631a64476d25d21c83a701fa39 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Mon, 20 Jul 2015 21:55:52 +0200
Subject: Add a payment from the UI, it needs polishing however

---
 src/client/Model/View.elm             |  7 ++++---
 src/client/Model/View/PaymentView.elm | 19 +++++++++++++++++++
 src/client/Model/View/SignIn.elm      | 15 ---------------
 src/client/Model/View/SignInView.elm  | 15 +++++++++++++++
 4 files changed, 38 insertions(+), 18 deletions(-)
 create mode 100644 src/client/Model/View/PaymentView.elm
 delete mode 100644 src/client/Model/View/SignIn.elm
 create mode 100644 src/client/Model/View/SignInView.elm

(limited to 'src/client/Model')

diff --git a/src/client/Model/View.elm b/src/client/Model/View.elm
index 3e3cbca..7befca4 100644
--- a/src/client/Model/View.elm
+++ b/src/client/Model/View.elm
@@ -3,9 +3,10 @@ module Model.View
   ) where
 
 import Model.Payment exposing (Payments)
-import Model.View.SignIn exposing (..)
+import Model.View.SignInView exposing (..)
+import Model.View.PaymentView exposing (..)
 
 type View =
   LoadingView
-  | PaymentView Payments
-  | SignInView SignIn
+  | SignInView SignInView
+  | PaymentView PaymentView
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
+  }
-- 
cgit v1.2.3