aboutsummaryrefslogtreecommitdiff
path: root/src/client/Model
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/Model')
-rw-r--r--src/client/Model/View/Payment/Edition.elm5
-rw-r--r--src/client/Model/View/PaymentView.elm3
2 files changed, 8 insertions, 0 deletions
diff --git a/src/client/Model/View/Payment/Edition.elm b/src/client/Model/View/Payment/Edition.elm
new file mode 100644
index 0000000..a650fa8
--- /dev/null
+++ b/src/client/Model/View/Payment/Edition.elm
@@ -0,0 +1,5 @@
+module Model.View.Payment.Edition
+ ( Edition
+ ) where
+
+type alias Edition = String
diff --git a/src/client/Model/View/PaymentView.elm b/src/client/Model/View/PaymentView.elm
index 07bd2ec..2f2be46 100644
--- a/src/client/Model/View/PaymentView.elm
+++ b/src/client/Model/View/PaymentView.elm
@@ -5,11 +5,13 @@ module Model.View.PaymentView
import Model.Payment exposing (Payments)
import Model.View.Payment.Add exposing (..)
+import Model.View.Payment.Edition exposing (..)
type alias PaymentView =
{ userName : String
, add : AddPayment
, payments : Payments
+ , edition : Maybe Edition
}
initPaymentView : String -> Payments -> PaymentView
@@ -17,4 +19,5 @@ initPaymentView userName payments =
{ userName = userName
, add = initAddPayment
, payments = payments
+ , edition = Nothing
}