summaryrefslogtreecommitdiff
path: root/Build/EvilLinker.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Build/EvilLinker.hs')
-rw-r--r--Build/EvilLinker.hs4
1 files changed, 3 insertions, 1 deletions
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