From 99200aef5d99a9ffe1c9c98fc9d31db4a78d2e26 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Wed, 26 Dec 2012 15:00:45 +0100 Subject: Foldable/Traversable instance for Item --- tests/Hakyll/Core/UnixFilter/Tests.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tests') diff --git a/tests/Hakyll/Core/UnixFilter/Tests.hs b/tests/Hakyll/Core/UnixFilter/Tests.hs index f5cbf9d..c3e1c99 100644 --- a/tests/Hakyll/Core/UnixFilter/Tests.hs +++ b/tests/Hakyll/Core/UnixFilter/Tests.hs @@ -33,5 +33,5 @@ unixFilterRev = withTestStore $ \store -> do expected <- testCompilerDone store provider "russian.md" getResourceString H.assert $ rev (itemBody expected) == lines (itemBody output) where - compiler = getResourceString >>= itemM (unixFilter "rev" []) + compiler = getResourceString >>= withItemBody (unixFilter "rev" []) rev = map reverse . lines -- cgit v1.2.3