summaryrefslogtreecommitdiff
path: root/tests/Hakyll/Core/Runtime
diff options
context:
space:
mode:
authorJasper Van der Jeugt <m@jaspervdj.be>2012-11-24 13:34:50 +0100
committerJasper Van der Jeugt <m@jaspervdj.be>2012-11-24 13:35:00 +0100
commit6e7a80e8a3a4ac5d77a2f520cd8ecc1aba6f32ef (patch)
tree28bbc77da81f485db5aa696d658e69c142c13bdf /tests/Hakyll/Core/Runtime
parent0a6b2b259862b90ccca11281de89091e2e01cb4d (diff)
downloadhakyll-6e7a80e8a3a4ac5d77a2f520cd8ecc1aba6f32ef.tar.gz
Simpler rules
Diffstat (limited to 'tests/Hakyll/Core/Runtime')
-rw-r--r--tests/Hakyll/Core/Runtime/Tests.hs9
1 files changed, 5 insertions, 4 deletions
diff --git a/tests/Hakyll/Core/Runtime/Tests.hs b/tests/Hakyll/Core/Runtime/Tests.hs
index 0d202c7..38eb5f5 100644
--- a/tests/Hakyll/Core/Runtime/Tests.hs
+++ b/tests/Hakyll/Core/Runtime/Tests.hs
@@ -33,10 +33,11 @@ case01 = withTestConfiguration $ \config -> do
saveSnapshot "raw" body
return $ renderPandoc body
- match "bodies.txt" $ route idRoute
- create "bodies.txt" $ do
- items <- requireAllSnapshots "*.md" "raw" :: Compiler [Item String]
- makeItem $ concat $ map itemBody items
+ match "bodies.txt" $ do
+ route idRoute
+ compile $ do
+ items <- requireAllSnapshots "*.md" "raw"
+ makeItem $ concat $ map itemBody (items :: [Item String])
example <- readFile $ destinationDirectory config </> "example.html"
lines example @?= ["<p>This is an example.</p>"]