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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
import qualified System.Environment as Env
import qualified Senate as Sen
import qualified SenateTypes as Typ
import qualified Data.Maybe as Maybe
-- this is all messy test code
-- maps for NT Senate data
-- will be removed when candidate info parsing complete
above = [[1,2],[3,4],[5,6],[7,8],[9,10],[11,12],[13,14]]
below = [ "Pile, Jan"
, "Gimini, Jimmy"
, "Kavasilas, Andrew"
, "Jones, Timothy"
, "Campbell, Trudy"
, "Barry, Ian"
, "Connard, Michael"
, "Bannister, Kathy"
, "Scullion, Nigel"
, "Lillis, Jenni"
, "McCarthy, Malarndirri"
, "Honan, Pat"
, "Ordish, Carol"
, "Ordish, John"
, "Lee, TS"
, "Marshall, Tristan"
, "Ryan, Maurie Japarta"
, "MacDonald, Marney"
, "Strettles, Greg" ]
main = do
args <- Env.getArgs
counter <- Sen.createSenateCounter (head args) above below
let testTraces = map (:[]) (zip [1,1..] below)
theCounter = Maybe.fromJust counter
results = map (\x -> (Sen.doCount theCounter x) >>= (putStrLn . (((snd . head $ x) ++ " ") ++) . show)) testTraces
sequence_ results
|
