blob: dfc0905e862a0c4b48c3da5e866d04146fe289d6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
module View.Payments
( renderPayments
) where
import Html exposing (..)
import Html.Attributes exposing (..)
import Model.Payment exposing (Payments)
import Model.View.PaymentView exposing (PaymentView)
import View.Payments.Add exposing (addPayment)
import View.Payments.Table exposing (paymentsTable)
renderPayments : PaymentView -> Html
renderPayments paymentView =
div
[ class "payments" ]
[ addPayment paymentView.name paymentView.cost
, paymentsTable paymentView.payments
]
|
