From e3c3550bcddba61a4a6e7c5f3715f0385fb4d739 Mon Sep 17 00:00:00 2001 From: Ilya Portnov Date: Mon, 13 Jun 2011 22:10:43 +0600 Subject: [PATCH] Cleanup: remove unused imports. --- Data/BinaryState.hs | 1 - JVM/Assembler.hs | 8 -------- JVM/ClassFile.hs | 1 - JVM/Converter.hs | 4 ---- disassemble.hs | 2 ++ 5 files changed, 2 insertions(+), 14 deletions(-) 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 -- 2.25.1