slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

site: fix route generated for latest docs

Browse Source
This commit is contained in:
Simon Michael 2014-01-12 08:25:37 -08:00
parent 7838811b46
commit 792b1685ff
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
site/site.hs
View File

@ -2,6 +2,7 @@
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{- hakyll script to build hledger.org -} {- hakyll script to build hledger.org -}
import Data.Monoid
import Hakyll import Hakyll
import System.Process import System.Process
import Text.Pandoc.Options import Text.Pandoc.Options
@ -34,7 +35,7 @@ main = do
>>= relativizeUrls >>= relativizeUrls
match (("doc/*.md" .&&. complement "doc/README.md") .||. "0.22/*.md" .||. "0.21/*.md" .||. "0.20/*.md" .||. "0.19/*.md" .||. "0.18/*.md") $ do match (("doc/*.md" .&&. complement "doc/README.md") .||. "0.22/*.md" .||. "0.21/*.md" .||. "0.20/*.md" .||. "0.19/*.md" .||. "0.18/*.md") $ do
route $ setExtension "html" route $ gsubRoute "doc/" (const "") `mappend` setExtension "html"
compile $ compile $
pandocCompilerWith pandocCompilerWith
def def