aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2008-08-28 14:22:29 +0000
committerIan Lynagh <igloo@earth.li>2008-08-28 14:22:29 +0000
commit54825d3531346ee52a48163f2e2b14d62b90d13b (patch)
treedf5ad7cbd4c9803c14463cb2b119ee6371b68e55 /src/Haddock
parent56f2789e70905b790fc961455bcb9fbe56cc6626 (diff)
Fixes for using haddock in a GHC build tree
Diffstat (limited to 'src/Haddock')
-rw-r--r--src/Haddock/GHC.hs3
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