From 1cadba16eb91a1f9dae03d87201fe1e8a7e0d1b6 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 1 Apr 2014 10:10:46 -0700 Subject: HTML reader: idiomatic rewriting for clarity. --- src/Text/Pandoc/Readers/HTML.hs | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'src') 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 -- cgit v1.2.3