From a92b66dd82f6817efc937acbfcf4c6d4f10ecc29 Mon Sep 17 00:00:00 2001
From: Bernhard Urban <lewurm@gmail.com>
Date: Tue, 17 Jul 2012 19:10:27 +0200
Subject: [PATCH] refactor stuff

---
 Mate/BasicBlocks.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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