src/client/View/Payments.elm


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

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.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
    , paymentsTable model loggedView
    , paymentsPaging loggedView
    ]