projects
/
hs-java.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Minor updates.
[hs-java.git]
/
disassemble.hs
diff --git
a/disassemble.hs
b/disassemble.hs
index 619ef2c736d81a6d9dfd40ea311b55eda074d644..d4b9a1b5d9cb807c77098b6f03588d13c85b01b4 100644
(file)
--- a/
disassemble.hs
+++ b/
disassemble.hs
@@
-23,7
+23,8
@@
main = do
putStrLn "Methods:"
forM_ (methods cls) $ \m -> do
putStr ">> Method "
putStrLn "Methods:"
forM_ (methods cls) $ \m -> do
putStr ">> Method "
- B.putStrLn (methodName m)
+ B.putStr (methodName m)
+ print (methodSignature m)
case attrByName m "Code" of
Nothing -> putStrLn "(no code)\n"
Just bytecode -> let code = decodeS (0 :: Integer) bytecode
case attrByName m "Code" of
Nothing -> putStrLn "(no code)\n"
Just bytecode -> let code = decodeS (0 :: Integer) bytecode