From 82cb1c4265c0c4a55fcd3fec9bcaec6647d11030 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sun, 8 Jan 2017 23:49:21 +1100
Subject: Should be operating at acceptable speed/memusage rates now

---
 src/main.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/main.hs')

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
 
 
-- 
cgit