From 594d28725e37abbd4c5fbd960c9f935d201ed78f Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 6 Dec 2013 15:15:47 -0400
Subject: error reporting

---
 Build/EvilLinker.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Build/EvilLinker.hs')

diff --git a/Build/EvilLinker.hs b/Build/EvilLinker.hs
index b7c4a58ff..a6889aa69 100644
--- a/Build/EvilLinker.hs
+++ b/Build/EvilLinker.hs
@@ -114,7 +114,9 @@ getOutput cmd params env = do
 	processTranscript' cmd params env Nothing
 
 runParser' :: Parser a -> String -> a
-runParser' p s = either (error . show) id (parse p "" s)
+runParser' p s = either failedparse id (parse p "" s)
+  where
+	failedparse e = error $ (show e) ++ "\nInput:\n" ++ s
 
 atFile :: FilePath -> String
 atFile f = '@':f
-- 
cgit v1.2.3