Wall: kill ghc warning

[mate.git] / Mate / BasicBlocks.hs

diff --git a/Mate/BasicBlocks.hs b/Mate/BasicBlocks.hs
index bde2697d67634e4a896813633097dde1a276eb7d..170d33c8328d679868da76e9893ba11a7537be87 100644 (file)
--- a/Mate/BasicBlocks.hs
+++ b/Mate/BasicBlocks.hs
@@ -76,7 +76,7 @@ parseMethod :: Class Resolved -> B.ByteString -> IO (Maybe MapBB)
 parseMethod cls method = do
                      putStr "BB: analysing: "
                      let msig = methodSignature $ (classMethods cls) !! 1
-                     B.putStrLn (method `B.append` ": " `B.append` (encode msig))
+                     putStrLn $ toString (method `B.append` ": " `B.append` (encode msig))
                      return $ testCFG $ lookupMethod method cls