From a20bc7bed9fd03e930297467f876c27f0072d1de Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Sun, 30 Dec 2012 09:50:02 +0100 Subject: Make saveSnapshot chainable --- tests/Hakyll/Core/Runtime/Tests.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'tests') diff --git a/tests/Hakyll/Core/Runtime/Tests.hs b/tests/Hakyll/Core/Runtime/Tests.hs index 3488dba..af85f4f 100644 --- a/tests/Hakyll/Core/Runtime/Tests.hs +++ b/tests/Hakyll/Core/Runtime/Tests.hs @@ -29,9 +29,9 @@ case01 = withTestConfiguration $ \config -> do match "*.md" $ do route $ setExtension "html" compile $ do - body <- getResourceBody - saveSnapshot "raw" body - return $ renderPandoc body + getResourceBody + >>= saveSnapshot "raw" + >>= return . renderPandoc match "bodies.txt" $ do route idRoute -- cgit v1.2.3