@@ -442,13 +442,12 @@ pInlinesInTags :: String -> (Inlines -> Inlines)
442442pInlinesInTags tagtype f = do
443443 contents <- B.unMany <$> pInTags tagtype inline
444444 let left = case viewl contents of
445− EmptyL -> mempty
446− (a :< _) -> padSpace a
445+ (Space :< _) -> B.space
446+ _ -> mempty
447447 let right = case viewr contents of
448− EmptyR -> mempty
449− (_ :> a) -> padSpace a
448+ (_ :> Space) -> B.space
449+ _ -> mempty
450450 return (left <> f (trimInlines . B.Many $ contents) <> right)
451− where padSpace a = if a == Space then B.space else mempty
452451
453452pInTags :: (Monoid a) => String -> TagParser a
454453 -> TagParser a