diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-04-04 00:26:05 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-04-04 00:26:05 +0200 |
| commit | cbfc7c18e1aa6c498d2fc7bdecf2f127b6582dbd (patch) | |
| tree | abf6e6492f1d8e1588056daec95ef000d609b1f9 /tests/Hakyll/Core/UnixFilter/Tests.hs | |
| parent | c40cf286afacd130c1ddd28abacb3c484895076b (diff) | |
| download | hakyll-cbfc7c18e1aa6c498d2fc7bdecf2f127b6582dbd.tar.gz | |
Debug info for Alternative instances
See #126
Diffstat (limited to 'tests/Hakyll/Core/UnixFilter/Tests.hs')
| -rw-r--r-- | tests/Hakyll/Core/UnixFilter/Tests.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/Hakyll/Core/UnixFilter/Tests.hs b/tests/Hakyll/Core/UnixFilter/Tests.hs index 04051e3..92c2904 100644 --- a/tests/Hakyll/Core/UnixFilter/Tests.hs +++ b/tests/Hakyll/Core/UnixFilter/Tests.hs @@ -49,8 +49,8 @@ unixFilterFalse = do provider <- newTestProvider store result <- testCompiler store provider "russian.md" compiler H.assert $ case result of - CompilerError e -> "exit code" `isInfixOf` e - _ -> False + CompilerError es -> any ("exit code" `isInfixOf`) es + _ -> False cleanTestEnv where compiler = getResourceString >>= withItemBody (unixFilter "false" []) |