haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-24 09:51:57 +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 Web.PathPieces (toPathPiece)
import qualified Codec.Archive.Tar as Tar import qualified Codec.Archive.Tar as Tar
import Database.Esqueleto.Internal.Language (From) import Database.Esqueleto.Internal.Language (From)
import Text.Markdown (Markdown (..)) import Text.Markdown (markdown, msAddHeadingId, def)
import System.Directory (removeFile) import System.Directory (removeFile)
import Stackage.Database.Haddock import Stackage.Database.Haddock
import System.FilePath (takeBaseName, takeExtension) import System.FilePath (takeBaseName, takeExtension)
@ -330,7 +330,9 @@ addPackage e =
fp = Tar.entryPath e fp = Tar.entryPath e
base = takeBaseName fp 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 "haddock" = renderHaddock txt
renderContent txt _ = toHtml $ Textarea txt renderContent txt _ = toHtml $ Textarea txt