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

Compatibility with newer haddock-library

Browse Source
This commit is contained in:
Janus Troelsen 2023-06-24 21:30:27 +02:00
parent 041255cc29
commit af987be2ab
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Stackage/Database/Haddock.hs
View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP #-}
{-# LANGUAGE NoImplicitPrelude #-}
module Stackage.Database.Haddock
( renderHaddock
@ -8,6 +9,9 @@ import qualified Documentation.Haddock.Parser as Haddock
import Documentation.Haddock.Types (DocH(..), Example(..), Header(..),
Hyperlink(..), MetaDoc(..), Picture(..),
Table(..), TableCell(..), TableRow(..))
#if MIN_VERSION_haddock_library(1,10,0)
import Documentation.Haddock.Types (ModLink(modLinkName))
#endif
import Text.Blaze.Html (Html, toHtml)
import qualified Text.Blaze.Html5 as H
import qualified Text.Blaze.Html5.Attributes as A
@ -27,13 +31,21 @@ hToHtml =
go (DocParagraph x) = H.p $ go x
go (DocIdentifier s) = H.code $ toHtml s
go (DocIdentifierUnchecked s) = H.code $ toHtml s
#if MIN_VERSION_haddock_library(1,10,0)
go (DocModule modLink) = H.code $ toHtml $ modLinkName modLink
#else
go (DocModule s) = H.code $ toHtml s
#endif
go (DocWarning x) = H.span H.! A.class_ "warning" $ go x
go (DocEmphasis x) = H.em $ go x
go (DocMonospaced x) = H.code $ go x
go (DocBold x) = H.strong $ go x
go (DocUnorderedList xs) = H.ul $ foldMap (H.li . go) xs
#if MIN_VERSION_haddock_library(1,11,0)
go (DocOrderedList xs) = H.ol $ foldMap (H.li . go . snd) xs
#else
go (DocOrderedList xs) = H.ol $ foldMap (H.li . go) xs
#endif
go (DocDefList xs) = H.dl $ flip foldMap xs $ \(x, y) ->
H.dt (go x) ++ H.dd (go y)
go (DocCodeBlock x) = H.pre $ H.code $ go x