diff options
| author | David Waern <david.waern@gmail.com> | 2010-06-08 21:09:05 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2010-06-08 21:09:05 +0000 |
| commit | e5557efe25e46fd02d3bcf2eb76f06f4f7d3d816 (patch) | |
| tree | 45606f1a55c4c71e8449d0176b8dffd3f7c932c0 /src/Main.hs | |
| parent | 95ef20b14e20d7ef57eae58d93dd16121b0c7e1e (diff) | |
Display name of prologue file when parsing it fails
Diffstat (limited to 'src/Main.hs')
| -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 73ddb1d9..1bf2b717 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -368,7 +368,7 @@ getPrologue flags = [filename] -> do str <- readFile filename case parseParas (tokenise defaultDynFlags str (0,0) {- TODO: real position -}) of - Nothing -> throwE "parsing haddock prologue failed" + Nothing -> throwE $ "failed to parse haddock prologue from file: " ++ filename Just doc -> return (Just doc) _otherwise -> throwE "multiple -p/--prologue options" |