From ce03e5b3ce60e3fc98dfc8de296db33d503e2049 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Sat, 11 Jun 2011 18:41:24 +0200 Subject: Update brochure example code --- examples/brochure/hakyll.hs | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) (limited to 'examples/brochure/hakyll.hs') diff --git a/examples/brochure/hakyll.hs b/examples/brochure/hakyll.hs index e298670..f33b37d 100644 --- a/examples/brochure/hakyll.hs +++ b/examples/brochure/hakyll.hs @@ -1,6 +1,5 @@ {-# LANGUAGE OverloadedStrings #-} import Control.Arrow ((>>>)) -import Control.Monad (forM_) import Hakyll @@ -16,9 +15,8 @@ main = hakyll $ do match "templates/*" $ compile templateCompiler - forM_ ["about.rst", "index.markdown", "code.lhs"] $ \page -> - match page $ do - route $ setExtension "html" - compile $ pageCompiler - >>> applyTemplateCompiler "templates/default.html" - >>> relativizeUrlsCompiler + match (list ["about.rst", "index.markdown", "code.lhs"]) $ do + route $ setExtension "html" + compile $ pageCompiler + >>> applyTemplateCompiler "templates/default.html" + >>> relativizeUrlsCompiler -- cgit v1.2.3