diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-10-23 13:19:06 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-10-23 13:19:06 -0700 |
| commit | 556e3eef4a26eab9ea769e06668fcba546d76b18 (patch) | |
| tree | 81cad48a4e0394214d93a5e0fff6eaea48495f47 /src/Text/Pandoc/Readers | |
| parent | 8f428c4e103c5d13dc478d16a05c9f1d317fe6d0 (diff) | |
| download | pandoc-556e3eef4a26eab9ea769e06668fcba546d76b18.tar.gz | |
Man reader: ALlow empty definition list definitions.
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Man.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs index fb10e3613..54d2f059f 100644 --- a/src/Text/Pandoc/Readers/Man.hs +++ b/src/Text/Pandoc/Readers/Man.hs @@ -780,7 +780,7 @@ listItem mbListType = try $ do | otherwise -> Ordered (start, listtype, DefaultDelim) Left _ -> Bullet guard $ listTypeMatches mbListType lt - inls <- parseInlines + inls <- option mempty parseInlines continuations <- mconcat <$> many continuation return (lt, para inls <> continuations) [] -> mzero @@ -807,7 +807,7 @@ definitionListItem = try $ do mmacro "TQ" newterm <- parseInline return newterm - inls <- parseInlines + inls <- option mempty parseInlines continuations <- mconcat <$> many continuation return ( mconcat (intersperse B.linebreak (term:moreterms)) , [para inls <> continuations]) |