projects
/
hs-java.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
cabal: bump data-default dependency to 0.5.0.
[hs-java.git]
/
rebuild-class.hs
diff --git
a/rebuild-class.hs
b/rebuild-class.hs
index 4afb954b25cd78dcde77a08daeed2f7c87ec423c..301e158ce3fddbe0c0f044ce68e0dad044fe8952 100644
(file)
--- a/
rebuild-class.hs
+++ b/
rebuild-class.hs
@@
-17,9
+17,9
@@
main = do
cls <- parseClassFile clspath
clsfile <- decodeFile clspath :: IO (Class File)
dumpClass cls
cls <- parseClassFile clspath
clsfile <- decodeFile clspath :: IO (Class File)
dumpClass cls
- putStrLn $ "Source pool:\n" ++ showListIx (M.
elem
s $ constsPool clsfile)
+ putStrLn $ "Source pool:\n" ++ showListIx (M.
assoc
s $ constsPool clsfile)
let result = classDirect2File cls
let result = classDirect2File cls
- putStrLn $ "Result pool:\n" ++ showListIx (M.
elem
s $ constsPool result)
+ putStrLn $ "Result pool:\n" ++ showListIx (M.
assoc
s $ constsPool result)
B.writeFile outpath (encodeClass cls)
_ -> error "Synopsis: rebuild-class File.class Output.class"
B.writeFile outpath (encodeClass cls)
_ -> error "Synopsis: rebuild-class File.class Output.class"