refactor stuff

diff --git a/Mate/BasicBlocks.hs b/Mate/BasicBlocks.hs
index 1f393ce52d28b828abcf2155070ed4aa467d6c50..ce676c224361fcde0af73bfa6e1ddf9e8a1fcbfd 100644 (file)
--- 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