projects
/
hs-java.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
More docs.
[hs-java.git]
/
rebuild-class.hs
diff --git
a/rebuild-class.hs
b/rebuild-class.hs
index 45a98431ac1aa16e1adb235967a3084a98bf791c..cb98f243e7fc7236447204b14dd48ea54b4e347f 100644
(file)
--- a/
rebuild-class.hs
+++ b/
rebuild-class.hs
@@
-15,7
+15,7
@@
main = do
case args of
[clspath,outpath] -> do
cls <- parseClassFile clspath
case args of
[clspath,outpath] -> do
cls <- parseClassFile clspath
- clsfile <- decodeFile clspath :: IO (Class
Pointers
)
+ clsfile <- decodeFile clspath :: IO (Class
File
)
dumpClass cls
putStrLn $ "Source pool:\n" ++ showListIx (M.elems $ constsPool clsfile)
let result = classFile cls
dumpClass cls
putStrLn $ "Source pool:\n" ++ showListIx (M.elems $ constsPool clsfile)
let result = classFile cls