diff options
| author | Ben Simms <ben@bensimms.moe> | 2022-05-03 13:19:24 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-05-03 14:19:24 +0200 |
| commit | 35c99f595c984f58d2fb4dc180c48a0eaf7df173 (patch) | |
| tree | bae92ed5970738d031ef4fb84dc571c037e2ec40 /haddock-api/src/Haddock/Backends/Hoogle.hs | |
| parent | bc0f2d6c1bfd331a9426fa9a92288444178267b1 (diff) | |
Keep track of ordered list indexes and render them (#1407)
* Keep track of ordered list indexes and render them
* Rename some identifiers to clarify
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Hoogle.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Hoogle.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Backends/Hoogle.hs b/haddock-api/src/Haddock/Backends/Hoogle.hs index 7e10426a..9e39d98d 100644 --- a/haddock-api/src/Haddock/Backends/Hoogle.hs +++ b/haddock-api/src/Haddock/Backends/Hoogle.hs @@ -353,7 +353,7 @@ markupTag dflags = Markup { markupMathInline = const $ str "<math>", markupMathDisplay = const $ str "<math>", markupUnorderedList = box (TagL 'u'), - markupOrderedList = box (TagL 'o'), + markupOrderedList = box (TagL 'o') . map snd, markupDefList = box (TagL 'u') . map (\(a,b) -> TagInline "i" a : Str " " : b), markupCodeBlock = box TagPre, markupHyperlink = \(Hyperlink url mLabel) -> box (TagInline "a") (fromMaybe (str url) mLabel), |