diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-24 13:34:50 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-24 13:35:00 +0100 |
| commit | 6e7a80e8a3a4ac5d77a2f520cd8ecc1aba6f32ef (patch) | |
| tree | 28bbc77da81f485db5aa696d658e69c142c13bdf /tests/Hakyll/Core/Runtime/Tests.hs | |
| parent | 0a6b2b259862b90ccca11281de89091e2e01cb4d (diff) | |
| download | hakyll-6e7a80e8a3a4ac5d77a2f520cd8ecc1aba6f32ef.tar.gz | |
Simpler rules
Diffstat (limited to 'tests/Hakyll/Core/Runtime/Tests.hs')
| -rw-r--r-- | tests/Hakyll/Core/Runtime/Tests.hs | 9 |
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>"] |