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