1 {-# LANGUAGE OverloadedStrings #-}
6 import System.Environment
7 import qualified Data.ByteString.Lazy as B
9 import qualified Data.Map as M
20 [clspath,outpath] -> do
21 cls <- parseClassFile clspath
22 clsfile <- decodeFile clspath :: IO (Class Pointers)
24 putStrLn $ "Source pool:\n" ++ showListIx (M.elems $ constsPool clsfile)
25 let result = classFile cls
26 putStrLn $ "Result pool:\n" ++ showListIx (M.elems $ constsPool result)
27 B.writeFile outpath (encodeClass cls)
29 _ -> error "Synopsis: rebuild-class File.class Output.class"