cabal: bump data-default dependency to 0.5.0.

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

diff --git a/rebuild-class.hs b/rebuild-class.hs
index 1265cf1207b9dd07db78da902197b4e049ff8d77..301e158ce3fddbe0c0f044ce68e0dad044fe8952 100644 (file)
--- a/rebuild-class.hs
+++ b/rebuild-class.hs
@@ -1,16 +1,13 @@
 {-# LANGUAGE OverloadedStrings #-}
 
-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.Assembler
 import JVM.Dump
 
 main = do
@@ -18,11 +15,11 @@ main = do
   case args of
     [clspath,outpath] -> do
       cls <- parseClassFile clspath
-      clsfile <- decodeFile clspath :: IO ClassFile
+      clsfile <- decodeFile clspath :: IO (Class File)
       dumpClass cls
-      putStrLn $ "Source pool:\n" ++ showListIx (constsPool clsfile)
-      let result = classFile cls
-      putStrLn $ "Result pool:\n" ++ showListIx (constsPool result)
+      putStrLn $ "Source pool:\n" ++ showListIx (M.assocs $ constsPool clsfile)
+      let result = classDirect2File cls
+      putStrLn $ "Result pool:\n" ++ showListIx (M.assocs $ constsPool result)
       B.writeFile outpath (encodeClass cls)
 
     _ -> error "Synopsis: rebuild-class File.class Output.class"