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

Haddock writer: Only use Decimal list style.

Browse source
This commit is contained in:
John MacFarlane 2014-06-18 18:11:01 -07:00
parent c4182b39ca
commit de7b3a3d08
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Writers/Haddock.hs
View file

@ -152,8 +152,8 @@ blockToHaddock opts (Table caption aligns widths headers rows) = do
blockToHaddock opts (BulletList items) = do
contents <- mapM (bulletListItemToHaddock opts) items
return $ cat contents <> blankline
blockToHaddock opts (OrderedList (start,sty,delim) items) = do
let attribs = (start, sty, delim)
blockToHaddock opts (OrderedList (start,_,delim) items) = do
let attribs = (start, Decimal, delim)
let markers = orderedListMarkers attribs
let markers' = map (\m -> if length m < 3
then m ++ replicate (3 - length m) ' '