From 06b46e0085741d0c84aedc32de15251785eeceb2 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Sun, 29 Aug 2010 17:46:23 +0000
Subject: Use flattenExtensionFlags with ghc >= 6.13 only

---
 src/Main.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Main.hs b/src/Main.hs
index 51e98e1e..8e3ba3e7 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -386,7 +386,13 @@ getPrologue flags =
     [] -> return Nothing
     [filename] -> do
       str <- readFile filename
-      case parseParas (tokenise (flattenExtensionFlags defaultDynFlags) str (0,0) {- TODO: real position -}) of
+#if ! MIN_VERSION_ghc(6,13,0)
+      let f = id
+#else
+      let f = flattenExtensionFlags
+#endif
+      case parseParas (tokenise (f defaultDynFlags) str
+                      (1,0) {- TODO: real position -}) of
         Nothing -> throwE $ "failed to parse haddock prologue from file: " ++ filename
         Just doc -> return (Just doc)
     _otherwise -> throwE "multiple -p/--prologue options"
-- 
cgit v1.2.3