diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-07-24 23:18:49 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-07-24 23:18:49 +0000 |
| commit | dcb03b6589bde9aebc1b8b418112a64a0e9763a8 (patch) | |
| tree | e088972e414c96f0fbf2cd6673d9c455d3f0b83c | |
| parent | 1aa774f2b93e9895a3970fe12b70492ac128086d (diff) | |
Flatten the dynflags before parsing
| -rw-r--r-- | src/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs index 59257d9d..aaed1f48 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -386,7 +386,7 @@ getPrologue flags = [] -> return Nothing [filename] -> do str <- readFile filename - case parseParas (tokenise defaultDynFlags str (0,0) {- TODO: real position -}) of + case parseParas (tokenise (flattenLanguageFlags defaultDynFlags) str (0,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" |