diff options
| -rw-r--r-- | src/Main.hs | 7 |
1 files changed, 1 insertions, 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) |