X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=rebuild-class.hs;h=301e158ce3fddbe0c0f044ce68e0dad044fe8952;hb=60bb62c78accd2509209a02d5af081b5aa36c269;hp=4afb954b25cd78dcde77a08daeed2f7c87ec423c;hpb=752b12198fcd7cdc754f4488d3750da7ac154604;p=hs-java.git

diff --git a/rebuild-class.hs b/rebuild-class.hs
index 4afb954..301e158 100644
--- 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
-      putStrLn $ "Source pool:\n" ++ showListIx (M.elems $ constsPool clsfile)
+      putStrLn $ "Source pool:\n" ++ showListIx (M.assocs $ constsPool clsfile)
       let result = classDirect2File cls
-      putStrLn $ "Result pool:\n" ++ showListIx (M.elems $ constsPool result)
+      putStrLn $ "Result pool:\n" ++ showListIx (M.assocs $ constsPool result)
       B.writeFile outpath (encodeClass cls)
 
     _ -> error "Synopsis: rebuild-class File.class Output.class"