From: Ilya Portnov <portnov84@rambler.ru>
Date: Mon, 13 Jun 2011 16:10:43 +0000 (+0600)
Subject: Cleanup: remove unused imports.
X-Git-Tag: v0.3.2~52
X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=hs-java.git;a=commitdiff_plain;h=e3c3550bcddba61a4a6e7c5f3715f0385fb4d739

Cleanup: remove unused imports.
---

diff --git a/Data/BinaryState.hs b/Data/BinaryState.hs
index 782e0c9..fc7fa1d 100644
--- 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 21ecdd6..d67f31c 100644
--- 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 39df21a..ef4916c 100644
--- 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 1bc8e85..2c58cec 100644
--- 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 d4b9a1b..bb6512f 100644
--- a/disassemble.hs
+++ b/disassemble.hs
@@ -1,4 +1,6 @@
 {-# LANGUAGE OverloadedStrings #-}
+module Main where
+
 import Control.Monad
 import Data.Array
 import System.Environment