summaryrefslogtreecommitdiff
path: root/examples/morepages/hakyll.hs
diff options
context:
space:
mode:
Diffstat (limited to 'examples/morepages/hakyll.hs')
-rw-r--r--examples/morepages/hakyll.hs23
1 files changed, 12 insertions, 11 deletions
diff --git a/examples/morepages/hakyll.hs b/examples/morepages/hakyll.hs
index d62f8a8..c1b96e6 100644
--- a/examples/morepages/hakyll.hs
+++ b/examples/morepages/hakyll.hs
@@ -9,20 +9,21 @@ import Hakyll
main :: IO ()
main = hakyll $ do
-- Compress CSS
- route "css/*" idRoute
- compile "css/*" compressCssCompiler
+ match "css/*" $ do
+ route idRoute
+ compile compressCssCompiler
-- Render static pages
- forM_ ["about.markdown", "index.markdown", "products.markdown"] $ \p -> do
- route p $ setExtension ".html"
- compile p $
- pageCompiler
- >>> requireA "footer.markdown" (setFieldA "footer" $ arr pageBody)
- >>> applyTemplateCompiler "templates/default.html"
- >>> relativizeUrlsCompiler
+ forM_ ["about.markdown", "index.markdown", "products.markdown"] $ \p ->
+ match p $ do
+ route $ setExtension ".html"
+ compile $ pageCompiler
+ >>> requireA "footer.markdown" (setFieldA "footer" $ arr pageBody)
+ >>> applyTemplateCompiler "templates/default.html"
+ >>> relativizeUrlsCompiler
-- Compile footer
- compile "footer.markdown" pageCompiler
+ match "footer.markdown" $ compile pageCompiler
-- Read templates
- compile "templates/*" templateCompiler
+ match "templates/*" $ compile templateCompiler