X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=JVM%2FDump.hs;h=19be0e8fdfbbe6e6592150b7b90ce53b3f3657b4;hb=6e74744ce2c6c5ded88d749ee447bb25b88efab8;hp=3f450ed5e13c159f5f4be433fc207b6d4a08bfb9;hpb=736d0e920159839bf89dff10cc27583b91fc7216;p=hs-java.git

diff --git a/JVM/Dump.hs b/JVM/Dump.hs
index 3f450ed..19be0e8 100644
--- a/JVM/Dump.hs
+++ b/JVM/Dump.hs
@@ -3,7 +3,7 @@ module JVM.Dump where
 
 import Control.Monad
 import qualified Data.Map as M
-import qualified Data.ByteString.Lazy as B
+import qualified Data.ByteString.Lazy.Char8 as B
 import Text.Printf
 
 import JVM.Common ()
@@ -11,7 +11,8 @@ 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)