diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2019-05-25 18:26:21 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2019-05-25 18:36:56 +0300 |
| commit | 751427745417c7702a1546b1368db297a44b21e0 (patch) | |
| tree | b004ea65224013ce0c448ccef4373960dddcea39 /src/Text/Pandoc | |
| parent | 19f9eed0bb378dfd488265ef6946492113027cea (diff) | |
| download | pandoc-751427745417c7702a1546b1368db297a44b21e0.tar.gz | |
HTML reader: trim definition list terms
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/HTML.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs index dfc31f7af..c1478ebc4 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -336,7 +336,7 @@ pDefListItem = try $ do terms <- many1 (try $ skipMany nonItem >> pInTags "dt" inline) defs <- many1 (try $ skipMany nonItem >> pInTags "dd" block) skipMany nonItem - let term = foldl1 (\x y -> x <> B.linebreak <> y) terms + let term = foldl1 (\x y -> x <> B.linebreak <> y) $ map trimInlines terms return (term, map (fixPlains True) defs) fixPlains :: Bool -> Blocks -> Blocks |