@@ -1,6 +1,5 @@
11{-# LANGUAGE OverloadedStrings #-}
22import Control.Arrow ((>>>))
3−import Control.Monad (forM_)
43
54import Hakyll
65
@@ -16,9 +15,8 @@ main = hakyll $ do
1615
1716 match "templates/*" $ compile templateCompiler
1817
19− forM_ ["about.rst", "index.markdown", "code.lhs"] $ \page ->
20− match page $ do
21− route $ setExtension "html"
22− compile $ pageCompiler
23− >>> applyTemplateCompiler "templates/default.html"
24− >>> relativizeUrlsCompiler
18+ match (list ["about.rst", "index.markdown", "code.lhs"]) $ do
19+ route $ setExtension "html"
20+ compile $ pageCompiler
21+ >>> applyTemplateCompiler "templates/default.html"
22+ >>> relativizeUrlsCompiler