Fix unused import warnings

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