From b2cb1c7393ad3eaf43b3cd928e6e4a932324eaa1 Mon Sep 17 00:00:00 2001
From: Bernhard Urban <lewurm@gmail.com>
Date: Thu, 2 Aug 2012 21:37:24 +0200
Subject: [PATCH] debugmode: no maybe anymore

---
 Mate/BasicBlocks.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/Mate/BasicBlocks.hs b/Mate/BasicBlocks.hs
index d4cd2b1..c2bdcd7 100644
--- a/Mate/BasicBlocks.hs
+++ b/Mate/BasicBlocks.hs
@@ -108,9 +108,7 @@ parseMethod cls methodname sig = do
   let msig = methodSignature $ classMethods cls !! 1
   printfBb "BB: analysing \"%s\"\n" $ toString (methodname `B.append` ": " `B.append` encode msig)
 #ifdef DBG_BB
-  case maybe_bb of
-    Just m -> printMapBB $ rawMapBB m
-    Nothing -> return ()
+  printMapBB mapbb
 #endif
   -- small example how to get information about
   -- exceptions of a method
-- 
2.25.1