module Senate(
    SenateCounter,
    createSenateCounter,
    doCount
    ) where



import qualified System.IO as IO
import qualified SenateTypes as STY
import qualified CSV as CSV



data SenateCounter = SenateCounter { inputData : IO.FilePath
                                   , upperMap  : STY.UpperMap
                                   , lowerMap  : STY.LowerMap }



createSenateCounter :: IO.FilePath -> STY.UpperMap -> STY.LowerMap -> SenateCounter
createSenateCounter = SenateCounter
--  use this function to errorcheck the input data



doCount :: SenateCounter -> STY.Trace -> Int