Cleanup: remove unused imports.

diff --git a/Data/BinaryState.hs b/Data/BinaryState.hs
index 782e0c918f4bc635ed0489c1036cc2e1311fd3b1..fc7fa1d658e8a73f28a6fa5390f0671cb986f6fa 100644 (file)
--- a/Data/BinaryState.hs
+++ b/Data/BinaryState.hs
@@ -7,7 +7,6 @@ import qualified Data.Binary as Binary
 import qualified Data.Binary.Put as Put
 import qualified Data.Binary.Get as Get
 import qualified Data.ByteString.Lazy as B
-import Foreign.Storable
 import Data.Word
 import Data.Int
 

diff --git a/JVM/Assembler.hs b/JVM/Assembler.hs
index 21ecdd68f3c10931c204b707d04dae048b76f154..d67f31c4fbead315c94de4dcb5d4b8d67ec6c1ae 100644 (file)
--- a/JVM/Assembler.hs
+++ b/JVM/Assembler.hs
@@ -14,21 +14,13 @@ module JVM.Assembler
 
 import Control.Monad
 import Control.Applicative
-import Data.Ix (inRange)
-import Data.List (intercalate)
 import Data.Word
-import Data.Bits
 import qualified Data.Binary as Binary
-import qualified Data.Binary.Get as Get
-import Data.Char
 import qualified Data.ByteString.Lazy as B
 import Data.Array
-import qualified Data.Set as S
-import qualified Data.Map as M
 
 import Data.BinaryState
 import JVM.ClassFile
-import JVM.Types
 
 -- | Immediate constant. Corresponding value will be added to base opcode.
 data IMM =

diff --git a/JVM/ClassFile.hs b/JVM/ClassFile.hs
index 39df21a9f5beb6e786ec27fddebc68d7f516857e..ef4916cfc4f5f14e12b909bc59eb0d6257a25d54 100644 (file)
--- a/JVM/ClassFile.hs
+++ b/JVM/ClassFile.hs
@@ -18,7 +18,6 @@ import Data.Binary
 import Data.Binary.IEEE754
 import Data.Binary.Get
 import Data.Binary.Put
-import Data.Word
 import Data.Char
 import Data.List
 import qualified Data.ByteString.Lazy as B

diff --git a/JVM/Converter.hs b/JVM/Converter.hs
index 1bc8e8534f64f4cfa6f13817b840671780bda546..2c58cec3e5502db15a05f8b783fc30cc1f7da410 100644 (file)
--- a/JVM/Converter.hs
+++ b/JVM/Converter.hs
@@ -14,15 +14,11 @@ import Data.List
 import Data.Word
 import Data.Bits
 import Data.Binary
-import Data.Char
-import Data.String
 import qualified Data.ByteString.Lazy as B
 import Data.Array
 import qualified Data.Set as S
 import qualified Data.Map as M
 
-import Debug.Trace
-
 import JVM.ClassFile
 import JVM.Types
 

diff --git a/disassemble.hs b/disassemble.hs
index d4b9a1b5d9cb807c77098b6f03588d13c85b01b4..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