From 792b1685ff20e3720f5326e7f44f00c89347d38a Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 12 Jan 2014 08:25:37 -0800
Subject: [PATCH] site: fix route generated for latest docs

---
 site/site.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/site/site.hs b/site/site.hs
index 198293baf..3c1d02b2b 100755
--- a/site/site.hs
+++ b/site/site.hs
@@ -2,6 +2,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 {- hakyll script to build hledger.org -}
 
+import Data.Monoid
 import Hakyll
 import System.Process
 import Text.Pandoc.Options
@@ -34,7 +35,7 @@ main = do
           >>= relativizeUrls
 
     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 $
           pandocCompilerWith
             def