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