From 07f2207bc0137698c21f510fc94c02af11392f8c Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Sat, 23 Oct 2010 21:17:14 +0000
Subject: Follow extension-flattening change in GHC

---
 src/Main.hs | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

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