1 {-# LANGUAGE OverloadedStrings #-}
5 import System.Environment
6 import qualified Data.Map as M
17 clsFile <- decodeFile clspath
18 putStrLn $ showListIx $ M.elems $ constsPool (clsFile :: Class Pointers)
19 cls <- parseClassFile clspath
21 _ -> error "Synopsis: dump-class File.class"