examples/brochure/hakyll.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

{-# 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
            >>> require "templates/default.html" (flip applyTemplate)
            >>> defaultRelativizeUrls