diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-08-28 14:22:29 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-08-28 14:22:29 +0000 |
| commit | 54825d3531346ee52a48163f2e2b14d62b90d13b (patch) | |
| tree | df5ad7cbd4c9803c14463cb2b119ee6371b68e55 /src/Haddock/GHC.hs | |
| parent | 56f2789e70905b790fc961455bcb9fbe56cc6626 (diff) | |
Fixes for using haddock in a GHC build tree
Diffstat (limited to 'src/Haddock/GHC.hs')
| -rw-r--r-- | src/Haddock/GHC.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Haddock/GHC.hs b/src/Haddock/GHC.hs index d5b59e0e..66bd3b1f 100644 --- a/src/Haddock/GHC.hs +++ b/src/Haddock/GHC.hs @@ -25,6 +25,7 @@ import GHC import DynFlags hiding (Option) import Packages hiding (package) import StaticFlags +import SrcLoc -- | Start a GHC session with the -haddock flag set. Also turn off @@ -33,7 +34,7 @@ startGhc :: String -> [String] -> IO (Session, DynFlags) startGhc libDir flags = do -- TODO: handle warnings? #if __GLASGOW_HASKELL__ >= 609 - (restFlags, _) <- parseStaticFlags flags + (restFlags, _) <- parseStaticFlags (map noLoc flags) #else restFlags <- parseStaticFlags flags #endif |