diff options
author | Jed Barber <jjbarber@y7mail.com> | 2017-01-09 19:53:06 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2017-01-09 19:53:06 +1100 |
commit | bc0a9edd47dad7a0bf7df26941a0d870c0c3d0ad (patch) | |
tree | 4443f657e71a9dca3d9f017c8c4176faaab479da /src/main.hs | |
parent | 82cb1c4265c0c4a55fcd3fec9bcaec6647d11030 (diff) |
Cleaning things up, splitting code into more modules
Diffstat (limited to 'src/main.hs')
-rw-r--r-- | src/main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/main.hs b/src/main.hs index c3db4ad..603151d 100644 --- a/src/main.hs +++ b/src/main.hs @@ -65,11 +65,11 @@ below2 = [ "Donnelly, Matt" main = do args <- Env.getArgs - counter <- Sen.createSenateCounter (head args) above below - let testTraces = (map (:[]) (zip [1,1..] below)) + counter <- Sen.createSenateCounter (head args) above2 below2 + let testTraces = (map (:[]) (zip [1,1..] below2)) results <- mapM (Sen.doCount counter) testTraces let func (n,c) = putStrLn (c ++ " " ++ (show n)) - output = map func (zip results below) + output = map func (zip results below2) sequence_ output |