@@ -1,19 +1,24 @@
11--------------------------------------------------------------------------------
22{-# LANGUAGE OverloadedStrings #-}
3−import Control.Arrow (second)
4−import Control.Monad (forM_)
5−import Data.Char (isDigit)
6−import Data.List (isPrefixOf, sortBy)
7−import Data.Monoid ((<>))
8−import Data.Ord (comparing)
3+import Control.Arrow (second)
4+import Control.Monad (forM_)
5+import Data.Char (isDigit)
6+import Data.List (isPrefixOf, sortBy)
7+import Data.Monoid ((<>))
8+import Data.Ord (comparing)
99import Hakyll
10−import System.FilePath (dropTrailingPathSeparator, splitPath)
10+import System.Directory (copyFile)
11+import System.FilePath (dropTrailingPathSeparator, splitPath)
1112import Text.Pandoc
1213
1314
1415--------------------------------------------------------------------------------
1516main :: IO ()
1617main = hakyllWith config $ do
18+ -- Copy CHANGELOG.md here.
19+ preprocess $ copyFile "../CHANGELOG.md" "releases.markdown"
20+
21+ -- CSS
1722 match "css/*" $ do
1823 route idRoute
1924 compile compressCssCompiler
@@ -70,8 +75,7 @@ main = hakyllWith config $ do
7075 where
7176 withToc = defaultHakyllWriterOptions
7277 { writerTableOfContents = True
73− , writerTemplate = "$toc$\n$body$"
74− , writerStandalone = True
78+ , writerTemplate = Just "$toc$\n$body$"
7579 }
7680
7781