blob: 8de005dbd4b17ef028fa2d05d0e05098cdd2d573 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
module Model.View.PaymentView
( PaymentView
, initPaymentView
) where
import Model.Payment exposing (Payments)
type alias PaymentView =
{ userName : String
, name : String
, cost : String
, payments : Payments
}
initPaymentView : String -> Payments -> PaymentView
initPaymentView userName payments =
{ userName = userName
, name = ""
, cost = ""
, payments = payments
}
|