X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=dump-class.hs;fp=dump-class.hs;h=86e714f1ea73bb85ca50678870fa705ea00f6fc6;hb=55d6741452443c59d700c01de495f50b56eb6f30;hp=3c52965c8a0a9efd1f0c1facd0c1e48066bcdc2d;hpb=896d879a67070b87b0d5b9a1e8145bb6be1eebe8;p=hs-java.git

diff --git a/dump-class.hs b/dump-class.hs
index 3c52965..86e714f 100644
--- a/dump-class.hs
+++ b/dump-class.hs
@@ -7,6 +7,7 @@ import Data.Binary
 import System.Environment
 import qualified Data.ByteString.Lazy as B
 import Text.Printf
+import qualified Data.Map as M
 
 import JVM.Types
 import JVM.ClassFile
@@ -18,7 +19,7 @@ main = do
   case args of
     [clspath] -> do
       clsFile <- decodeFile clspath
-      putStrLn $ showListIx $ constsPool clsFile
+      putStrLn $ showListIx $ M.elems $ constsPool (clsFile :: Class Pointers)
       cls <- parseClassFile clspath
       dumpClass cls
     _ -> error "Synopsis: dump-class File.class"