haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-12 04:08:29 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Adding heading IDs for READMEs

Browse Source
This commit is contained in:
Michael Snoyman 2015-12-30 12:29:25 +02:00
parent c453b0bd34
commit 47e4545842
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Stackage/Database.hs
View File

@ -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