aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock
diff options
context:
space:
mode:
Diffstat (limited to 'src/Haddock')
-rw-r--r--src/Haddock/GHC.hs10
-rw-r--r--src/Haddock/InterfaceFile.hs2
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