X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=hs-java.git;a=blobdiff_plain;f=dump-class.hs;h=f62ea1e1f040e52f20bd8c18e4072444a45aa13a;hp=a87c1cbd698b255bc7d2391a64f81a13fbdf28bd;hb=743c0f2dca8434e69cce8389630091d37c28bc25;hpb=907c7d06647c07e3c757a0b1709f1501f2575826

diff --git a/dump-class.hs b/dump-class.hs
index a87c1cb..f62ea1e 100644
--- a/dump-class.hs
+++ b/dump-class.hs
@@ -15,7 +15,7 @@ main = do
   case args of
     [clspath] -> do
       clsFile <- decodeFile clspath
-      putStrLn $ showListIx $ M.elems $ constsPool (clsFile :: Class File)
+      putStrLn $ showListIx $ M.assocs $ constsPool (clsFile :: Class File)
       cls <- parseClassFile clspath
       dumpClass cls
     _ -> error "Synopsis: dump-class File.class"