X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=dump-class.hs;h=a87c1cbd698b255bc7d2391a64f81a13fbdf28bd;hb=664ccf2dba19ecd86ec59b7a2652fddd44ac70f2;hp=57053d6f4b5f704788663185f2bde2b3d79b689e;hpb=e15d36946e3bff9b68576cb16a49ee9f90f62956;p=hs-java.git

diff --git a/dump-class.hs b/dump-class.hs
index 57053d6..a87c1cb 100644
--- a/dump-class.hs
+++ b/dump-class.hs
@@ -1,12 +1,8 @@
 {-# 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
@@ -19,7 +15,7 @@ main = do
   case args of
     [clspath] -> do
       clsFile <- decodeFile clspath
-      putStrLn $ showListIx $ M.elems $ constsPool (clsFile :: Class Pointers)
+      putStrLn $ showListIx $ M.elems $ constsPool (clsFile :: Class File)
       cls <- parseClassFile clspath
       dumpClass cls
     _ -> error "Synopsis: dump-class File.class"