From 1910795ddfa31026f089dbd439022b8e6f814d56 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 6 Dec 2013 15:15:47 -0400 Subject: [PATCH] error reporting --- Build/EvilLinker.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Build/EvilLinker.hs b/Build/EvilLinker.hs index b7c4a58ff8..a6889aa69b 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