diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-10-23 21:17:14 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-10-23 21:17:14 +0000 |
| commit | 07f2207bc0137698c21f510fc94c02af11392f8c (patch) | |
| tree | dd18a9f598d7eea76b279fe8c5d02b0fbf004151 | |
| parent | d829f2f95fed38a5bd16252b91327031a71ab101 (diff) | |
Follow extension-flattening change in GHC
| -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) |