summaryrefslogtreecommitdiff
path: root/tests/Hakyll/Core/Runtime
diff options
context:
space:
mode:
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>"]