cabal: bump data-default dependency to 0.5.0.

[hs-java.git] / dump-class.hs

diff --git a/dump-class.hs b/dump-class.hs
index 3c52965c8a0a9efd1f0c1facd0c1e48066bcdc2d..f62ea1e1f040e52f20bd8c18e4072444a45aa13a 100644 (file)
--- a/dump-class.hs
+++ b/dump-class.hs
@@ -1,14 +1,11 @@
 {-# 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.Types
+import JVM.Common
 import JVM.ClassFile
 import JVM.Converter
 import JVM.Dump
@@ -18,7 +15,7 @@ main = do
   case args of
     [clspath] -> do
       clsFile <- decodeFile clspath
-      putStrLn $ showListIx $ constsPool clsFile
+      putStrLn $ showListIx $ M.assocs $ constsPool (clsFile :: Class File)
       cls <- parseClassFile clspath
       dumpClass cls
     _ -> error "Synopsis: dump-class File.class"