From 47e45458427e5e64e93799f91556be152cb2d2be Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 30 Dec 2015 12:29:25 +0200
Subject: [PATCH] Adding heading IDs for READMEs

---
 Stackage/Database.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/Stackage/Database.hs b/Stackage/Database.hs
index e94a6c3..483d2b5 100644
--- a/Stackage/Database.hs
+++ b/Stackage/Database.hs
@@ -44,7 +44,7 @@ import Database.Sqlite (SqliteException)
 import Web.PathPieces (toPathPiece)
 import qualified Codec.Archive.Tar as Tar
 import Database.Esqueleto.Internal.Language (From)
-import Text.Markdown (Markdown (..))
+import Text.Markdown (markdown, msAddHeadingId, def)
 import System.Directory (removeFile)
 import Stackage.Database.Haddock
 import System.FilePath (takeBaseName, takeExtension)
@@ -330,7 +330,9 @@ addPackage e =
     fp = Tar.entryPath e
     base = takeBaseName fp
 
-    renderContent txt "markdown" = toHtml $ Markdown $ fromStrict txt
+    renderContent txt "markdown" = markdown
+                                    (def { msAddHeadingId = True })
+                                    (fromStrict txt)
     renderContent txt "haddock" = renderHaddock txt
     renderContent txt _ = toHtml $ Textarea txt