- putStrLn $ "Source pool:\n" ++ showListIx (constsPool clsfile)
- let result = classFile cls
- putStrLn $ "Result pool:\n" ++ showListIx (constsPool result)
+ putStrLn $ "Source pool:\n" ++ showListIx (M.assocs $ constsPool clsfile)
+ let result = classDirect2File cls
+ putStrLn $ "Result pool:\n" ++ showListIx (M.assocs $ constsPool result)