aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2009-07-07 13:35:45 +0000
committerIan Lynagh <igloo@earth.li>2009-07-07 13:35:45 +0000
commita5698175f207de66f7c59e4761ad12e23b072fdf (patch)
tree699dddb87a632a9ba8dccfe3fac4057e6ead4e69 /src
parentfbea25b9766993942c044db898ca047b9416e30b (diff)
Fix unused import warnings
Diffstat (limited to 'src')
-rw-r--r--src/Haddock/Backends/Hoogle.hs1
-rw-r--r--src/Haddock/Backends/Html.hs2
-rw-r--r--src/Haddock/GhcUtils.hs1
-rw-r--r--src/Haddock/Interface.hs1
-rw-r--r--src/Haddock/Interface/AttachInstances.hs2
-rw-r--r--src/Haddock/Interface/Create.hs4
-rw-r--r--src/Haddock/Interface/Rename.hs1
-rw-r--r--src/Haddock/InterfaceFile.hs5
-rw-r--r--src/Haddock/Types.hs1
-rw-r--r--src/Haddock/Utils.hs3
-rw-r--r--src/Haddock/Utils/FastMutInt2.hs5
11 files changed, 0 insertions, 26 deletions
diff --git a/src/Haddock/Backends/Hoogle.hs b/src/Haddock/Backends/Hoogle.hs
index 542947d7..020c4a71 100644
--- a/src/Haddock/Backends/Hoogle.hs
+++ b/src/Haddock/Backends/Hoogle.hs
@@ -21,7 +21,6 @@ import Haddock.GhcUtils
import Haddock.Types
import Haddock.Utils hiding (out)
import GHC
-import SrcLoc
import Outputable
import Control.Monad
diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs
index 25991eb8..99103f98 100644
--- a/src/Haddock/Backends/Html.hs
+++ b/src/Haddock/Backends/Html.hs
@@ -29,7 +29,6 @@ import Haddock.Utils
import Haddock.Utils.Html hiding ( name, title, p )
import qualified Haddock.Utils.Html as Html
import Haddock.GhcUtils
-import qualified Haddock.Utils.Html as Html
import Control.Exception ( bracket )
import Control.Monad ( when, unless, join )
@@ -52,7 +51,6 @@ import GHC hiding ( NoLink )
import Name
import Module
import RdrName hiding ( Qual, is_explicit )
-import SrcLoc
import FastString ( unpackFS )
import BasicTypes ( IPName(..), Boxity(..) )
import Outputable ( ppr, showSDoc, Outputable )
diff --git a/src/Haddock/GhcUtils.hs b/src/Haddock/GhcUtils.hs
index 4107a1e5..e0202ed6 100644
--- a/src/Haddock/GhcUtils.hs
+++ b/src/Haddock/GhcUtils.hs
@@ -17,7 +17,6 @@
module Haddock.GhcUtils where
-import Data.Char
import Data.Version
import qualified Data.Map as Map
import Control.Arrow
diff --git a/src/Haddock/Interface.hs b/src/Haddock/Interface.hs
index b9d409db..3092afc6 100644
--- a/src/Haddock/Interface.hs
+++ b/src/Haddock/Interface.hs
@@ -36,7 +36,6 @@ import Control.Exception ( evaluate )
import Distribution.Verbosity
import GHC hiding (verbosity, flags)
-import Name
import Digraph
import HscTypes
diff --git a/src/Haddock/Interface/AttachInstances.hs b/src/Haddock/Interface/AttachInstances.hs
index eb0d719e..1f45be01 100644
--- a/src/Haddock/Interface/AttachInstances.hs
+++ b/src/Haddock/Interface/AttachInstances.hs
@@ -21,7 +21,6 @@ import Data.List
import GHC
import Name
-import SrcLoc
import InstEnv
import Class
@@ -34,7 +33,6 @@ import TypeRep
import Var hiding (varName)
import TyCon
import PrelNames
-import HscTypes
import FastString
#define FSLIT(x) (mkFastString# (x#))
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index e21c27fe..92476382 100644
--- a/src/Haddock/Interface/Create.hs
+++ b/src/Haddock/Interface/Create.hs
@@ -22,15 +22,11 @@ import qualified Data.Map as Map
import Data.Map (Map)
import Data.List
import Data.Maybe
-import Data.Char
import Data.Ord
import Control.Monad
import GHC hiding (flags)
-import SrcLoc
import Name
-import Module
-import InstEnv
import Bag
diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs
index d28924d8..50e9327e 100644
--- a/src/Haddock/Interface/Rename.hs
+++ b/src/Haddock/Interface/Rename.hs
@@ -19,7 +19,6 @@ import Haddock.GhcUtils
import GHC hiding (NoLink)
import Name
import BasicTypes
-import SrcLoc
import Bag (emptyBag)
import Data.List
diff --git a/src/Haddock/InterfaceFile.hs b/src/Haddock/InterfaceFile.hs
index 78d88816..9c6df447 100644
--- a/src/Haddock/InterfaceFile.hs
+++ b/src/Haddock/InterfaceFile.hs
@@ -27,20 +27,15 @@ import Data.Word
import Data.Array
import Data.IORef
import qualified Data.Map as Map
-import System.IO
-import Control.Monad
import GHC hiding (NoLink)
-import SrcLoc (noSrcSpan) -- tmp, GHC now exports this
import Binary
import Name
import UniqSupply
import UniqFM
import IfaceEnv
-import Module
import HscTypes
import FastMutInt
-import HsDoc
#if __GLASGOW_HASKELL__ >= 609
import FastString
import Unique
diff --git a/src/Haddock/Types.hs b/src/Haddock/Types.hs
index b58b4f91..d82c4778 100644
--- a/src/Haddock/Types.hs
+++ b/src/Haddock/Types.hs
@@ -21,7 +21,6 @@ module Haddock.Types where
import Control.Exception
import Data.Typeable
import Data.Map (Map)
-import qualified Data.Map as Map
import GHC hiding (NoLink)
import Name
diff --git a/src/Haddock/Utils.hs b/src/Haddock/Utils.hs
index 5545be2e..b7c4e48e 100644
--- a/src/Haddock/Utils.hs
+++ b/src/Haddock/Utils.hs
@@ -55,11 +55,8 @@ import Haddock.Types
import Haddock.GhcUtils
import GHC
-import SrcLoc
import Name
-import OccName
import Binary
-import Module
import Control.Monad ( liftM )
import Data.Char ( isAlpha, ord, chr )
diff --git a/src/Haddock/Utils/FastMutInt2.hs b/src/Haddock/Utils/FastMutInt2.hs
index 4ac50e60..79b0f86e 100644
--- a/src/Haddock/Utils/FastMutInt2.hs
+++ b/src/Haddock/Utils/FastMutInt2.hs
@@ -22,11 +22,6 @@ import GlaExts
import PrelIOBase
#else
import GHC.Base
-#if __GLASGOW_HASKELL__ < 611
-import GHC.IOBase
-#else
-import GHC.IO
-#endif
#endif
#if __GLASGOW_HASKELL__ < 411