projects
/
hs-java.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
cabal: update version to 0.3.1
[hs-java.git]
/
dump-class.hs
diff --git
a/dump-class.hs
b/dump-class.hs
index 76fd6813d725a5054adf0d848b8bb73aad5e5f46..f62ea1e1f040e52f20bd8c18e4072444a45aa13a 100644
(file)
--- a/
dump-class.hs
+++ b/
dump-class.hs
@@
-15,7
+15,7
@@
main = do
case args of
[clspath] -> do
clsFile <- decodeFile clspath
case args of
[clspath] -> do
clsFile <- decodeFile clspath
- putStrLn $ showListIx $ M.
elems $ constsPool (clsFile :: Class Pointers
)
+ putStrLn $ showListIx $ M.
assocs $ constsPool (clsFile :: Class File
)
cls <- parseClassFile clspath
dumpClass cls
_ -> error "Synopsis: dump-class File.class"
cls <- parseClassFile clspath
dumpClass cls
_ -> error "Synopsis: dump-class File.class"