diff options
author | Péter Diviánszky <divipp@gmail.com> | 2016-02-13 13:11:21 +0100 |
---|---|---|
committer | Péter Diviánszky <divipp@gmail.com> | 2016-02-13 13:11:38 +0100 |
commit | 32abd090f36c19cdeef4ad0c475a22d715d9bee3 (patch) | |
tree | f0916f10dbee548039677b0d56c5ee924800fc9b /test/runTests.hs | |
parent | 5a2116c429a9762d17440e30b88572dc5d0cbadd (diff) |
add structure to error messages
Diffstat (limited to 'test/runTests.hs')
-rw-r--r-- | test/runTests.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/runTests.hs b/test/runTests.hs index 40b8054e..75f88525 100644 --- a/test/runTests.hs +++ b/test/runTests.hs | |||
@@ -180,7 +180,7 @@ doTest Config{..} (i, fn) = do | |||
180 | where | 180 | where |
181 | n = dropExtension fn | 181 | n = dropExtension fn |
182 | 182 | ||
183 | action = f <$> (Right <$> getDef n "main" Nothing) `catchMM` (return . Left . show) | 183 | action = f <$> (Right <$> getDef n "main" Nothing) `catchMM` (return . Left) |
184 | 184 | ||
185 | f | not $ isReject fn = \case | 185 | f | not $ isReject fn = \case |
186 | Left e -> Left (tab "!Failed" e, Failed) | 186 | Left e -> Left (tab "!Failed" e, Failed) |