From aa3feb83f4119a971bf3e4c185a359e28f0ee73d Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Sat, 26 Feb 2011 15:49:46 +0100
Subject: Update hakyll.hs file of hakyll site
---
examples/hakyll/hakyll.hs | 20 ++++++++++----------
1 file changed, 10 insertions(+), 10 deletions(-)
diff --git a/examples/hakyll/hakyll.hs b/examples/hakyll/hakyll.hs
index 35f0ba4..c4f339c 100644
--- a/examples/hakyll/hakyll.hs
+++ b/examples/hakyll/hakyll.hs
@@ -7,34 +7,34 @@ import Text.Pandoc
main :: IO ()
main = hakyll $ do
route "css/*" idRoute
- compile "css/*" defaultCompressCss
+ compile "css/*" compressCssCompiler
-- Static directories
forM_ ["images/*", "examples/*", "reference/*"] $ \f -> do
route f idRoute
- compile f defaultCopyFile
+ compile f copyFileCompiler
-- Pages
forM_ pages $ \p -> do
route p $ setExtension "html"
- compile p $ defaultPageRead
+ compile p $ pageCompiler
>>> requireA "sidebar.markdown" (setFieldA "sidebar" $ arr pageBody)
- >>> defaultApplyTemplate "templates/default.html"
- >>> defaultRelativizeUrls
+ >>> applyTemplateCompiler "templates/default.html"
+ >>> relativizeUrlsCompiler
-- Tutorial
route "tutorial.markdown" $ setExtension "html"
- compile "tutorial.markdown" $ pageRead
+ compile "tutorial.markdown" $ readPageCompiler
>>> pageRenderPandocWith defaultHakyllParserState withToc
>>> requireA "sidebar.markdown" (setFieldA "sidebar" $ arr pageBody)
- >>> defaultApplyTemplate "templates/default.html"
- >>> defaultRelativizeUrls
+ >>> applyTemplateCompiler "templates/default.html"
+ >>> relativizeUrlsCompiler
-- Sidebar
- compile "sidebar.markdown" defaultPageRead
+ compile "sidebar.markdown" pageCompiler
-- Templates
- compile "templates/*" defaultTemplateRead
+ compile "templates/*" templateCompiler
where
withToc = defaultHakyllWriterOptions
{ writerTableOfContents = True
--
cgit v1.2.3