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