build: fix -Wall warnings

[mate.git] / Mate / MethodPool.hs

diff --git a/Mate/MethodPool.hs b/Mate/MethodPool.hs
index 7f7df1d70d08cf7f332e72557e428bd4f926605d..74e4ec63e899ffbf95440bb90774cb86687d9b55 100644 (file)
--- a/Mate/MethodPool.hs
+++ b/Mate/MethodPool.hs
@@ -3,25 +3,15 @@
 module Mate.MethodPool where
 
 import Data.Binary
-import Data.Int
-import Data.List
-import Data.Maybe
 import qualified Data.Map as M
-import qualified Data.ByteString.Lazy as B
 
-import Foreign
-import Foreign.Ptr
-import Foreign.StablePtr
-import Foreign.C.Types
-import Foreign.C.String
 
 import Text.Printf
 
-import qualified JVM.Assembler as J
-import JVM.Assembler hiding (Instruction)
-
-import Harpy
-import Harpy.X86Disassembler
+import Foreign.Ptr
+import Foreign.C.Types
+import Foreign.C.String
+import Foreign.StablePtr
 
 import Mate.X86CodeGen
 
@@ -47,8 +37,9 @@ getMethodEntry ptr_mmap cstr = do
     Nothing -> return 0
     Just w32 -> return (fromIntegral w32)
 
+t_01 :: IO ()
 t_01 = do
-  (entry, end) <- testCase "./tests/Fib.class" "fib"
+  (entry, _) <- testCase "./tests/Fib.class" "fib"
   let int_entry = ((fromIntegral $ ptrToIntPtr entry) :: Word32)
   let mmap = M.insert ("fib" :: String) int_entry M.empty
   mapM_ (\(x,y) -> printf "%s at 0x%08x\n" x y) $ M.toList mmap