aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2010-06-08 21:09:05 +0000
committerDavid Waern <david.waern@gmail.com>2010-06-08 21:09:05 +0000
commite5557efe25e46fd02d3bcf2eb76f06f4f7d3d816 (patch)
tree45606f1a55c4c71e8449d0176b8dffd3f7c932c0 /src
parent95ef20b14e20d7ef57eae58d93dd16121b0c7e1e (diff)
Display name of prologue file when parsing it fails
Diffstat (limited to 'src')
-rw-r--r--src/Main.hs2
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"