aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/HTML.hs9
1 files changed, 4 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs
index 4fab251bb..38619d040 100644
--- a/src/Text/Pandoc/Readers/HTML.hs
+++ b/src/Text/Pandoc/Readers/HTML.hs
@@ -442,13 +442,12 @@ pInlinesInTags :: String -> (Inlines -> Inlines)
pInlinesInTags tagtype f = do
contents <- B.unMany <$> pInTags tagtype inline
let left = case viewl contents of
- EmptyL -> mempty
- (a :< _) -> padSpace a
+ (Space :< _) -> B.space
+ _ -> mempty
let right = case viewr contents of
- EmptyR -> mempty
- (_ :> a) -> padSpace a
+ (_ :> Space) -> B.space
+ _ -> mempty
return (left <> f (trimInlines . B.Many $ contents) <> right)
- where padSpace a = if a == Space then B.space else mempty
pInTags :: (Monoid a) => String -> TagParser a
-> TagParser a