Permalink
Browse files

Updated to Hakell-4.0

  • Loading branch information...
1 parent bc29853 commit c79f51517a4a14703312bbc15a2923ba74b03561 @yiannist committed Jan 21, 2013
Showing with 11 additions and 6 deletions.
  1. +11 −6 hakyll.hs → site.hs
View
@@ -1,5 +1,4 @@
{-# LANGUAGE OverloadedStrings #-}
-import Control.Arrow ((>>>))
import Hakyll
@@ -33,9 +32,15 @@ main = hakyll $ do
match "templates/*" $ compile templateCompiler
-- Render some static pages
- match (list ["index.md", "cv.md", "pubs.md", "contact.md", "links.md"
- , "404.md"]) $ do
+ match (fromList pages) $ do
route $ setExtension "html"
- compile $ pageCompiler
- >>> applyTemplateCompiler "templates/default.html"
- >>> relativizeUrlsCompiler
+ compile $ pandocCompiler
+ >>= loadAndApplyTemplate "templates/default.html" defaultContext
+ >>= relativizeUrls
+ where pages = [ "index.md"
+ , "cv.md"
+ , "pubs.md"
+ , "contact.md"
+ , "links.md"
+ , "404.md"
+ ]

0 comments on commit c79f515

Please sign in to comment.