projects
/
hs-java.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
More docs.
[hs-java.git]
/
JVM
/
Dump.hs
diff --git
a/JVM/Dump.hs
b/JVM/Dump.hs
index 02da46ae2a0d074b2dab39cc459c528795573816..53c8a2d81a1acff2c30d5f88f01a7898619cb7cb 100644
(file)
--- a/
JVM/Dump.hs
+++ b/
JVM/Dump.hs
@@
-6,12
+6,13
@@
import qualified Data.Map as M
import qualified Data.ByteString.Lazy as B
import Text.Printf
import qualified Data.ByteString.Lazy as B
import Text.Printf
-import JVM.
Types
+import JVM.
Common ()
import JVM.ClassFile
import JVM.Converter
import JVM.Assembler
import JVM.ClassFile
import JVM.Converter
import JVM.Assembler
-dumpClass :: Class Resolved -> IO ()
+-- | Dump a class to console.
+dumpClass :: Class Direct -> IO ()
dumpClass cls = do
putStr "Class: "
B.putStrLn (thisClass cls)
dumpClass cls = do
putStr "Class: "
B.putStrLn (thisClass cls)