Use flattenExtensionFlags with ghc >= 6.13 only

1 files changed, 7 insertions, 1 deletions

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"