module View.Income.Income
  ( view
  , IncomeIn(..)
  ) where

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

import           Common.Model       (Init)
import           View.Income.Header (HeaderIn (..))
import qualified View.Income.Header as Header
import           View.Income.Table  (IncomeTableIn (..))
import qualified View.Income.Table  as Table

data IncomeIn = IncomeIn
  { _incomeIn_init :: Init
  }

view :: forall t m. MonadWidget t m => IncomeIn -> m ()
view incomeIn =
  R.elClass "main" "income" $ do

    Header.view $ HeaderIn
      { _headerIn_init = _incomeIn_init incomeIn
      }

    Table.view $ IncomeTableIn
      { _tableIn_init = _incomeIn_init incomeIn
      }

    return ()