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

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.Add exposing (addPayment)
import View.Payments.Table exposing (paymentsTable)

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