X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=hs-java.git;a=blobdiff_plain;f=rebuild-class.hs;h=4afb954b25cd78dcde77a08daeed2f7c87ec423c;hp=cb98f243e7fc7236447204b14dd48ea54b4e347f;hb=752b12198fcd7cdc754f4488d3750da7ac154604;hpb=96bd2316525bb8790d4f047834c0ca6750155583

diff --git a/rebuild-class.hs b/rebuild-class.hs
index cb98f24..4afb954 100644
--- a/rebuild-class.hs
+++ b/rebuild-class.hs
@@ -18,7 +18,7 @@ main = do
       clsfile <- decodeFile clspath :: IO (Class File)
       dumpClass cls
       putStrLn $ "Source pool:\n" ++ showListIx (M.elems $ constsPool clsfile)
-      let result = classFile cls
+      let result = classDirect2File cls
       putStrLn $ "Result pool:\n" ++ showListIx (M.elems $ constsPool result)
       B.writeFile outpath (encodeClass cls)