From cbfc7c18e1aa6c498d2fc7bdecf2f127b6582dbd Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Thu, 4 Apr 2013 00:26:05 +0200
Subject: Debug info for Alternative instances
See #126
---
tests/Hakyll/Core/UnixFilter/Tests.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
(limited to 'tests/Hakyll')
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" [])
--
cgit v1.2.3