From d5a7abd47f0862c51bc7ce8349e4290ad1c24546 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 19 Sep 2020 15:58:28 -0700 Subject: Change deprecated Builder.isNull to null. --- src/Text/Pandoc/Readers/HTML.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Text/Pandoc/Readers/HTML.hs') diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs index 761c4cabe..11b8516ea 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -585,7 +585,7 @@ pBlockQuote = do pPlain :: PandocMonad m => TagParser m Blocks pPlain = do contents <- setInPlain $ trimInlines . mconcat <$> many1 inline - if B.isNull contents + if null contents then return mempty else return $ B.plain contents @@ -593,7 +593,7 @@ pPara :: PandocMonad m => TagParser m Blocks pPara = do contents <- trimInlines <$> pInTags "p" inline (do guardDisabled Ext_empty_paragraphs - guard (B.isNull contents) + guard (null contents) return mempty) <|> return (B.para contents) -- cgit v1.2.3