diff options
Diffstat (limited to 'src/main.hs')
| -rw-r--r-- | src/main.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/main.hs b/src/main.hs index 6e95f2a..c3db4ad 100644 --- a/src/main.hs +++ b/src/main.hs @@ -67,7 +67,9 @@ main = do args <- Env.getArgs counter <- Sen.createSenateCounter (head args) above below let testTraces = (map (:[]) (zip [1,1..] below)) - results = map (\x -> putStrLn . (((snd . head $ x) ++ " ") ++) . show . (Sen.doCount counter) $ x) testTraces - sequence_ results + results <- mapM (Sen.doCount counter) testTraces + let func (n,c) = putStrLn (c ++ " " ++ (show n)) + output = map func (zip results below) + sequence_ output |