From: Bernhard Urban <lewurm@gmail.com>
Date: Tue, 17 Jul 2012 17:10:27 +0000 (+0200)
Subject: refactor stuff
X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=mate.git;a=commitdiff_plain;h=a92b66dd82f6817efc937acbfcf4c6d4f10ecc29

refactor stuff
---

diff --git a/Mate/BasicBlocks.hs b/Mate/BasicBlocks.hs
index 1f393ce..ce676c2 100644
--- a/Mate/BasicBlocks.hs
+++ b/Mate/BasicBlocks.hs
@@ -41,7 +41,7 @@ printMapBB :: Maybe MapBB -> IO ()
 printMapBB Nothing = putStrLn "No BasicBlock"
 printMapBB (Just hmap) = do
                      putStr "BlockIDs: "
-                     let keys = fst $ unzip $ M.toList hmap
+                     let keys = fst $ unzip $ M.toList hmap -- M.keys
                      mapM_ (putStr . (flip (++)) ", " . show) keys
                      putStrLn "\n\nBasicBlocks:"
                      printMapBB' keys hmap