diff options
| author | John MacFarlane <[email protected]> | 2025-06-16 17:30:52 -0700 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2025-06-16 17:30:52 -0700 |
| commit | 94a9643ef9f80e4b66d293c761a2193703b99581 (patch) | |
| tree | eae5e8b4b8269fb5e4ec5aa34aa0e43daf44e967 | |
| parent | c476f4749d133e93999c0e7a4d49073001e901eb (diff) | |
DocBook writer: Fixed compiler warning.
| -rw-r--r-- | src/Text/Pandoc/Writers/DocBook.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/DocBook.hs b/src/Text/Pandoc/Writers/DocBook.hs index 5af6b23e5..775a92bef 100644 --- a/src/Text/Pandoc/Writers/DocBook.hs +++ b/src/Text/Pandoc/Writers/DocBook.hs @@ -277,8 +277,7 @@ blockToDocBook opts (OrderedList (start, numstyle, _) items) = do spacing = [("spacing", "compact") | isTightList items] startnum = [("startingnumber", tshow start) | start /= 1] attribs = numeration <> spacing <> startnum - items <- listItemsToDocBook opts items - return $ inTags True "orderedlist" attribs items + inTags True "orderedlist" attribs <$> listItemsToDocBook opts items blockToDocBook opts (DefinitionList lst) = do let attribs = [("spacing", "compact") | isTightList $ concatMap snd lst] inTags True "variablelist" attribs <$> deflistItemsToDocBook opts lst |