X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=hs-java.git;a=blobdiff_plain;f=JVM%2FDump.hs;h=02da46ae2a0d074b2dab39cc459c528795573816;hp=2012c8b94b5533eb706b93f63ad3b44c5336beca;hb=55d6741452443c59d700c01de495f50b56eb6f30;hpb=896d879a67070b87b0d5b9a1e8145bb6be1eebe8

diff --git a/JVM/Dump.hs b/JVM/Dump.hs
index 2012c8b..02da46a 100644
--- a/JVM/Dump.hs
+++ b/JVM/Dump.hs
@@ -7,18 +7,19 @@ import qualified Data.ByteString.Lazy as B
 import Text.Printf
 
 import JVM.Types
+import JVM.ClassFile
 import JVM.Converter
 import JVM.Assembler
 
-dumpClass :: Class -> IO ()
+dumpClass :: Class Resolved -> IO ()
 dumpClass cls = do
     putStr "Class: "
-    B.putStrLn (this cls)
+    B.putStrLn (thisClass cls)
     putStrLn "Constants pool:"
-    forM_ (M.assocs $ constantPool cls) $ \(i, c) ->
+    forM_ (M.assocs $ constsPool cls) $ \(i, c) ->
       putStrLn $ printf "  #%d:\t%s" i (show c)
     putStrLn "Methods:"
-    forM_ (methods cls) $ \m -> do
+    forM_ (classMethods cls) $ \m -> do
       putStr ">> Method "
       B.putStr (methodName m)
       print (methodSignature m)