Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Handle haddock 1.11.0 API changes (not noted in their changelog).

Browse source
This commit is contained in:
John MacFarlane 2022-08-18 11:37:10 -07:00
parent ecdbd18bc1
commit 748da6d123
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/Text/Pandoc/Readers/Haddock.hs
View file

@ -72,7 +72,17 @@ docHToBlocks d' =
DocHeader h -> B.header (headerLevel h) DocHeader h -> B.header (headerLevel h)
(docHToInlines False $ headerTitle h) (docHToInlines False $ headerTitle h)
DocUnorderedList items -> B.bulletList (map docHToBlocks items) DocUnorderedList items -> B.bulletList (map docHToBlocks items)
#if MIN_VERSION_haddock_library(1,11,0)
DocOrderedList items ->
B.orderedListWith attr (map (docHToBlocks . snd) items)
where
attr = (start, DefaultStyle, DefaultDelim)
start = case items of
[] -> 1
((n,_):_) -> n
#else
DocOrderedList items -> B.orderedList (map docHToBlocks items) DocOrderedList items -> B.orderedList (map docHToBlocks items)
#endif
DocDefList items -> B.definitionList (map (\(d,t) -> DocDefList items -> B.definitionList (map (\(d,t) ->
(docHToInlines False d, (docHToInlines False d,
[consolidatePlains $ docHToBlocks t])) items) [consolidatePlains $ docHToBlocks t])) items)