- putStrLn $ "Block " ++ (show i)
- mapM_ putStrLn (map ((++) "\t" . show) $ code bb)
- case successor bb of
- Return -> putStrLn ""
- FallThrough t1 -> putStrLn $ "Sucessor: " ++ (show t1) ++ "\n"
- OneTarget t1 -> putStrLn $ "Sucessor: " ++ (show t1) ++ "\n"
- TwoTarget t1 t2 -> putStrLn $ "Sucessor: " ++ (show t1) ++ ", " ++ (show t2) ++ "\n"
+ printfBb $ "Block " ++ (show i)
+ mapM_ printfBb (map ((++) "\t" . show) $ code bb)
+ printfBb $ case successor bb of
+ Return -> ""
+ FallThrough t1 -> "Sucessor: " ++ (show t1) ++ "\n"
+ OneTarget t1 -> "Sucessor: " ++ (show t1) ++ "\n"
+ TwoTarget t1 t2 -> "Sucessor: " ++ (show t1) ++ ", " ++ (show t2) ++ "\n"