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
    ]