blob: ac19df7d6fb9933a0379787b3a03eccd365e43fc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
module View.Payments
( renderPayments
) where
import Html exposing (..)
import Html.Attributes exposing (..)
import Model exposing (Model)
import Model.Payment exposing (Payments)
import Model.View.LoggedView exposing (LoggedView)
import View.Payments.ExceedingPayer exposing (exceedingPayers)
import View.Payments.Add exposing (addPayment)
import View.Payments.Monthly exposing (monthlyPayments)
import View.Payments.Table exposing (paymentsTable)
import View.Payments.Paging exposing (paymentsPaging)
renderPayments : Model -> LoggedView -> Html
renderPayments model loggedView =
div
[ class "payments" ]
[ exceedingPayers model loggedView
, addPayment model loggedView
, monthlyPayments model loggedView
, paymentsTable model loggedView
, paymentsPaging loggedView
]
|
