More docs.

[hs-java.git] / rebuild-class.hs

diff --git a/rebuild-class.hs b/rebuild-class.hs
index 45a98431ac1aa16e1adb235967a3084a98bf791c..cb98f243e7fc7236447204b14dd48ea54b4e347f 100644 (file)
--- a/rebuild-class.hs
+++ b/rebuild-class.hs
@@ -15,7 +15,7 @@ main = do
   case args of
     [clspath,outpath] -> do
       cls <- parseClassFile clspath
-      clsfile <- decodeFile clspath :: IO (Class Pointers)
+      clsfile <- decodeFile clspath :: IO (Class File)
       dumpClass cls
       putStrLn $ "Source pool:\n" ++ showListIx (M.elems $ constsPool clsfile)
       let result = classFile cls