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

module View.Payments
  ( renderPayments
  ) where

import Html exposing (..)
import Html.Attributes exposing (..)

import Model exposing (Model)
import Model.Payment exposing (Payments)
import Model.View.PaymentView exposing (PaymentView)

import View.Payments.ExceedingPayer exposing (exceedingPayers)
import View.Payments.Add exposing (addPayment)
import View.Payments.Table exposing (paymentsTable)

renderPayments : Model -> PaymentView -> Html
renderPayments model paymentView =
  div
    [ class "payments" ]
    [ exceedingPayers model paymentView
    , addPayment model paymentView.add
    , paymentsTable model paymentView
    ]