@@ -24,13 +24,10 @@ main = hakyll $ do
25 match "posts/*" $ do
25 match "posts/*" $ do
26 route $ setExtension "html"
26 route $ setExtension "html"
28− post <- pandocCompiler
27+ compile $ pandocCompiler
29− saveSnapshot "content" post
31− >>= loadAndApplyTemplate "templates/post.html" postCtx
28+ >>= loadAndApplyTemplate "templates/post.html" postCtx
32− >>= loadAndApplyTemplate "templates/default.html" postCtx
29+ >>= loadAndApplyTemplate "templates/default.html" postCtx
33− >>= relativizeUrls
30+ >>= relativizeUrls
35 match "archive.html" $ do
32 match "archive.html" $ do
36 route idRoute
33 route idRoute