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 | |
| parent | 5a2116c429a9762d17440e30b88572dc5d0cbadd (diff) | |
add structure to error messages
Diffstat (limited to 'test')
| -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) |