{-# LANGUAGE ExistentialQuantification #-}
{-# LANGUAGE OverloadedStrings         #-}
{-# LANGUAGE RecursiveDo               #-}

module View.Payment
  ( widget
  , PaymentIn(..)
  , PaymentOut(..)
  ) where

import Reflex.Dom (MonadWidget)
import qualified Reflex.Dom as R

import Common.Model (Init)

import View.Payment.Table (TableIn(..))
import qualified View.Payment.Table as Table

data PaymentIn = PaymentIn
  { _paymentIn_init :: Init
  }

data PaymentOut = PaymentOut
  {
  }

widget :: forall t m. MonadWidget t m => PaymentIn -> m PaymentOut
widget paymentIn = do
  R.divClass "payment" $ do
    _ <- Table.widget $ TableIn
      { _tableIn_init = _paymentIn_init paymentIn
      }
    return $ PaymentOut {}