hakyll/examples/brochure/hakyll.hs
2011-02-12 20:33:46 +01:00

18 lines
507 B
Haskell

{-# LANGUAGE OverloadedStrings #-}
import Control.Arrow ((>>>))
import Control.Monad (forM_)
import Hakyll
main :: IO ()
main = hakyll $ do
route "css/*" idRoute
compile "css/*" defaultCompressCss
compile "templates/*" defaultTemplateRead
forM_ ["about.rst", "index.markdown", "code.lhs"] $ \page -> do
route page $ setExtension "html"
compile page $ defaultPageRead
>>> defaultApplyTemplate "templates/default.html"
>>> defaultRelativizeUrls