From 54825d3531346ee52a48163f2e2b14d62b90d13b Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Thu, 28 Aug 2008 14:22:29 +0000
Subject: Fixes for using haddock in a GHC build tree

---
 src/Haddock/GHC.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Haddock')

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
-- 
cgit v1.2.3