From: Bernhard Urban <lewurm@gmail.com>
Date: Mon, 30 Apr 2012 12:54:57 +0000 (+0200)
Subject: Wall: kill ghc warning
X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=commitdiff_plain;h=ef289d0b7ecf028fb44a7e72066efd01d5544936;hp=44fd0ff66ac64839146aeeb98fdaaa7a6c75626a;p=mate.git

Wall: kill ghc warning
---

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