diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-12-30 09:50:02 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-12-30 09:50:02 +0100 |
| commit | a20bc7bed9fd03e930297467f876c27f0072d1de (patch) | |
| tree | d8086281527165f87939c83c3ea66cff2908d607 /tests/Hakyll/Core | |
| parent | 010b3bc60449b47b4347f4ae3277e4277d9e8bde (diff) | |
| download | hakyll-a20bc7bed9fd03e930297467f876c27f0072d1de.tar.gz | |
Make saveSnapshot chainable
Diffstat (limited to 'tests/Hakyll/Core')
| -rw-r--r-- | tests/Hakyll/Core/Runtime/Tests.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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 |