-Wall police

2 files changed, 5 insertions, 7 deletions

diff --git a/src/Haddock/GHC.hs b/src/Haddock/GHC.hs
index f0157f29..8ec4be82 100644
--- a/src/Haddock/GHC.hs
+++ b/src/Haddock/GHC.hs
@@ -13,16 +13,12 @@ module Haddock.GHC (
 
 import Haddock.GHC.Utils
 import Haddock.Exception
-import Haddock.Options
 
-import Data.Foldable (foldlM)
 import Data.Maybe
 import Control.Monad
 
-import GHC
-import DynFlags hiding (Option)
-import Packages hiding (package)
-import StaticFlags
+import GHC hiding (flags)
+import DynFlags hiding (Option, flags)
 import SrcLoc
 
 
@@ -105,6 +101,8 @@ loadPackages session pkgStrs = do
 -}
 
 -- | Try to parse dynamic GHC flags
+parseGhcFlags :: Monad m => DynFlags -> [Located String]
+              -> [String] -> m DynFlags
 parseGhcFlags dynflags flags origFlags = do
   -- TODO: handle warnings?
 #if __GLASGOW_HASKELL__ >= 609
diff --git a/src/Haddock/InterfaceFile.hs b/src/Haddock/InterfaceFile.hs
index 8a1a909c..f4c74cb9 100644
--- a/src/Haddock/InterfaceFile.hs
+++ b/src/Haddock/InterfaceFile.hs
@@ -15,7 +15,7 @@ module Haddock.InterfaceFile (
 
 
 import Haddock.Types
-import Haddock.Utils
+import Haddock.Utils hiding (out)
 
 import Data.List
 import Data.Word