From d0df50b824800127b4a40c566c0807209d669ebc Mon Sep 17 00:00:00 2001
From: Ilya Portnov <portnov84@rambler.ru>
Date: Mon, 13 Jun 2011 21:55:01 +0600
Subject: [PATCH] Minor updates.

---
 JVM/ClassFile.hs | 11 ++++++++++-
 disassemble.hs   |  3 ++-
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/JVM/ClassFile.hs b/JVM/ClassFile.hs
index 9546292..39df21a 100644
--- a/JVM/ClassFile.hs
+++ b/JVM/ClassFile.hs
@@ -1,7 +1,16 @@
 {-# LANGUAGE RecordWildCards, BangPatterns #-}
 -- | This module declares (low-level) data types for Java .class files
 -- structures, and Binary instances to read/write them.
-module JVM.ClassFile where
+module JVM.ClassFile
+  (ClassFile (..),
+   CpInfo (..),
+   FieldInfo (..),
+   MethodInfo (..),
+   AttributeInfo (..),
+   FieldType,
+   FieldSignature, MethodSignature (..), ReturnSignature (..)
+  )
+  where
 
 import Control.Monad
 import Control.Applicative
diff --git a/disassemble.hs b/disassemble.hs
index 619ef2c..d4b9a1b 100644
--- a/disassemble.hs
+++ b/disassemble.hs
@@ -23,7 +23,8 @@ main = do
       putStrLn "Methods:"
       forM_ (methods cls) $ \m -> do
         putStr ">> Method "
-        B.putStrLn (methodName m)
+        B.putStr (methodName m)
+        print (methodSignature m)
         case attrByName m "Code" of
           Nothing -> putStrLn "(no code)\n"
           Just bytecode -> let code = decodeS (0 :: Integer) bytecode
-- 
2.25.1