diff options
| -rw-r--r-- | Build/EvilLinker.hs | 4 |
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 |