From 52bd87cfa72a33dbcfef8eaf5817f3be12128c3e Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Wed, 13 Aug 2008 21:46:54 +0000
Subject: Follow changes to parseDynamic- parseStaticFlags in GHC

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

(limited to 'src')

diff --git a/src/Haddock/GHC.hs b/src/Haddock/GHC.hs
index 6ea72a29..d5b59e0e 100644
--- a/src/Haddock/GHC.hs
+++ b/src/Haddock/GHC.hs
@@ -32,7 +32,11 @@ import StaticFlags
 startGhc :: String -> [String] -> IO (Session, DynFlags)
 startGhc libDir flags = do
   -- TODO: handle warnings?
+#if __GLASGOW_HASKELL__ >= 609 
   (restFlags, _) <- parseStaticFlags flags
+#else
+  restFlags <- parseStaticFlags flags
+#endif
   session   <- newSession (Just libDir)
   dynflags  <- getSessionDynFlags session
   let dynflags' = dopt_set dynflags Opt_Haddock
-- 
cgit v1.2.3