Cleanup: remove unused imports.

[hs-java.git] / disassemble.hs

diff --git a/disassemble.hs b/disassemble.hs
index 619ef2c736d81a6d9dfd40ea311b55eda074d644..bb6512f6ad3a7a80b214720e9613019d6429a44c 100644 (file)
--- a/disassemble.hs
+++ b/disassemble.hs
@@ -1,4 +1,6 @@
 {-# LANGUAGE OverloadedStrings #-}
+module Main where
+
 import Control.Monad
 import Data.Array
 import System.Environment
@@ -23,7 +25,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