diff options
Diffstat (limited to 'src/client/Model')
-rw-r--r-- | src/client/Model/View/Payment/Edition.elm | 5 | ||||
-rw-r--r-- | src/client/Model/View/PaymentView.elm | 3 |
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 } |