@@ -24,13 +24,10 @@ main = hakyll $ do
2424
2525 match "posts/*" $ do
2626 route $ setExtension "html"
27− compile $ do
28− post <- pandocCompiler
29− saveSnapshot "content" post
30− return post
31− >>= loadAndApplyTemplate "templates/post.html" postCtx
32− >>= loadAndApplyTemplate "templates/default.html" postCtx
33− >>= relativizeUrls
27+ compile $ pandocCompiler
28+ >>= loadAndApplyTemplate "templates/post.html" postCtx
29+ >>= loadAndApplyTemplate "templates/default.html" postCtx
30+ >>= relativizeUrls
3431
3532 match "archive.html" $ do
3633 route idRoute