diff options
Diffstat (limited to 'src/senate.hs')
-rw-r--r-- | src/senate.hs | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/src/senate.hs b/src/senate.hs new file mode 100644 index 0000000..8f24d88 --- /dev/null +++ b/src/senate.hs @@ -0,0 +1,28 @@ +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 + |