blob: 8f24d88e9eb92e4422c390cc9a73bf12798449ff (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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
|