1 {-# LANGUAGE OverloadedStrings #-}
7 import System.Environment
8 import qualified Data.ByteString.Lazy as B
10 import qualified Data.Map as M
21 clsFile <- decodeFile clspath
22 putStrLn $ showListIx $ M.elems $ constsPool (clsFile :: Class Pointers)
23 cls <- parseClassFile clspath
25 _ -> error "Synopsis: dump-class File.class"