Simpler rules

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>"]