aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2014-06-18 18:11:01 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2014-06-18 18:11:01 -0700
commitde7b3a3d08264d6aa755436583d53f9a61252fa2 (patch)
treed083036bad3ec8e1f661394c41c1917dc0614ac9
parentc4182b39ca009f02fc4e0768056d37d64b93df7c (diff)
downloadpandoc-de7b3a3d08264d6aa755436583d53f9a61252fa2.tar.gz
Haddock writer: Only use Decimal list style.
-rw-r--r--src/Text/Pandoc/Writers/Haddock.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Haddock.hs b/src/Text/Pandoc/Writers/Haddock.hs
index 1939d3a6d..59d979ea8 100644
--- a/src/Text/Pandoc/Writers/Haddock.hs
+++ b/src/Text/Pandoc/Writers/Haddock.hs
@@ -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) ' '