YT.hs

{-# LANGUAGE ImportQualifiedPost #-}
{-# LANGUAGE DisambiguateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}

module Tax.Canada.T1.FieldNames.YT (t1Fields) where

import Rank2 qualified

import Tax.FDF (FieldConst (Field, NoField), Entry (..), within)
import Tax.Canada.Shared (subCalculationFields)
import Tax.Canada.T1.Types
import Tax.Canada.T1.Types qualified as Page8 (Page8(..))
import Tax.Canada.T1.FieldNames.BC qualified as BC
import Tax.Canada.T1.FieldNames.NT qualified as NT
import Tax.Canada.T1.FieldNames.ON qualified as ON

t1Fields :: T1 FieldConst
t1Fields = NT.t1Fields{
   page2 = within "form1" . within "Page2" . within "Step1-Continued" Rank2.<$> BC.page2Fields,
   page7 = within "form1" . within "Page7" Rank2.<$> page7Fields,
   page8 = within "form1" . within "Page8" Rank2.<$> page8Fields}

page7Fields = Page7 {
   partC_NetFederalTax = within "PartC" Rank2.<$> partCFields,
   step6_RefundOrBalanceOwing = within "Step6" Rank2.<$> page7step6Fields}

partCFields = ON.partCFields {
   line40900 = Field ["Line4100", "Line40900", "Line_40900_Amount"] Amount,
   line41000 = Field ["Line4100", "Line_41000_Amount"] Amount}

page7step6Fields = ON.page7step6Fields {
   line140 = Field ["Line142", "Amount"] Amount,
   line_43200_FirstNationsTax = Field ["Line43200", "Line_43200_Amount"] Amount}

page8Fields = BC.page8Fields {
   Page8.step6_RefundOrBalanceOwing = within "Step6-Cont" Rank2.<$> page8step6Fields,
   taxPreparer = within "Line_49000_IfFeeWasCharged" Rank2.<$> BC.taxPreparerFields}

page8step6Fields = ON.page8step6Fields {
   line_43500_totalpayable = Field ["Line149", "Amount"] Amount,
   line_44100 = Field ["Line44100", "Line_44000_Amount"] Amount,
   line_46800 = Field ["Line46900", "sfline46800end", "Line_46800_Amount"] Amount,
   line_47555_TaxPaid = Field ["Line47555", "Line_47555_Amount"] Amount,
   line164_Refund_or_BalanceOwing = Field ["Line169", "Amount"] Amount}