clsfile <- decodeFile clspath :: IO (Class File)
dumpClass cls
putStrLn $ "Source pool:\n" ++ showListIx (M.elems $ constsPool clsfile)
clsfile <- decodeFile clspath :: IO (Class File)
dumpClass cls
putStrLn $ "Source pool:\n" ++ showListIx (M.elems $ constsPool clsfile)