From ef289d0b7ecf028fb44a7e72066efd01d5544936 Mon Sep 17 00:00:00 2001
From: Bernhard Urban <lewurm@gmail.com>
Date: Mon, 30 Apr 2012 14:54:57 +0200
Subject: [PATCH] Wall: kill ghc warning

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

diff --git a/Mate/BasicBlocks.hs b/Mate/BasicBlocks.hs
index bde2697..170d33c 100644
--- 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
 
 
-- 
2.25.1