diff options
| -rw-r--r-- | src/Haddock/GHC.hs | 10 | ||||
| -rw-r--r-- | src/Haddock/InterfaceFile.hs | 2 |
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 |