diff options
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 |