X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=hs-java.git;a=blobdiff_plain;f=dump-class.hs;h=f62ea1e1f040e52f20bd8c18e4072444a45aa13a;hp=d76c8f2f8cb64b00c527478aa5ee8e096efd9e7a;hb=HEAD;hpb=afbece7c7a823691d1e17743aec4d94a930864c8

diff --git a/dump-class.hs b/dump-class.hs
index d76c8f2..f62ea1e 100644
--- a/dump-class.hs
+++ b/dump-class.hs
@@ -1,12 +1,12 @@
 {-# LANGUAGE OverloadedStrings #-}
 module Main where
 
-import Control.Monad
-import Data.Array
+import Data.Binary
 import System.Environment
-import qualified Data.ByteString.Lazy as B
-import Text.Printf
+import qualified Data.Map as M
 
+import JVM.Common
+import JVM.ClassFile
 import JVM.Converter
 import JVM.Dump
 
@@ -14,6 +14,8 @@ main = do
   args <- getArgs
   case args of
     [clspath] -> do
+      clsFile <- decodeFile clspath
+      putStrLn $ showListIx $ M.assocs $ constsPool (clsFile :: Class File)
       cls <- parseClassFile clspath
       dumpClass cls
     _ -> error "Synopsis: dump-class File.class"