From e5557efe25e46fd02d3bcf2eb76f06f4f7d3d816 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Tue, 8 Jun 2010 21:09:05 +0000
Subject: Display name of prologue file when parsing it fails

---
 src/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Main.hs')

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"
 
-- 
cgit v1.2.3