projects
/
mate.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
44fd0ff
)
Wall: kill ghc warning
author
Bernhard Urban
<lewurm@gmail.com>
Mon, 30 Apr 2012 12:54:57 +0000
(14:54 +0200)
committer
Bernhard Urban
<lewurm@gmail.com>
Mon, 30 Apr 2012 12:58:16 +0000
(14:58 +0200)
Mate/BasicBlocks.hs
patch
|
blob
|
history
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