diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-03-03 22:48:37 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-03-03 22:48:37 +0100 |
| commit | ce9d49ef0421f23fdc05fabd8d7f754d680bea47 (patch) | |
| tree | a3b292f7ff810d44f3be000aa23dbc80899f6ae1 /src/Text/Pandoc/Writers | |
| parent | fb47d1d90978110e778986a80f33a1d7438a4d35 (diff) | |
| download | pandoc-ce9d49ef0421f23fdc05fabd8d7f754d680bea47.tar.gz | |
OpenDocument writer: fixed dropped elements in some ordered lists.
Closes #2434.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/OpenDocument.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/OpenDocument.hs b/src/Text/Pandoc/Writers/OpenDocument.hs index 8d9023951..c268c5133 100644 --- a/src/Text/Pandoc/Writers/OpenDocument.hs +++ b/src/Text/Pandoc/Writers/OpenDocument.hs @@ -243,7 +243,7 @@ orderedListToOpenDocument o pn bs = orderedItemToOpenDocument :: PandocMonad m => WriterOptions -> Int -> [Block] -> OD m Doc orderedItemToOpenDocument o n (b:bs) - | OrderedList a l <- b = newLevel a l + | OrderedList a l <- b = go =<< newLevel a l | Para l <- b = go =<< inParagraphTagsWithStyle ("P" ++ show n) <$> inlinesToOpenDocument o l | otherwise = go =<< blockToOpenDocument o b where |