diff options
author | John MacFarlane <jgm@berkeley.edu> | 2020-09-19 15:58:28 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2020-09-19 16:00:22 -0700 |
commit | d5a7abd47f0862c51bc7ce8349e4290ad1c24546 (patch) | |
tree | c51cff5dc705b74975dae7877ab1fc5193821d90 /src/Text/Pandoc/Readers/HTML.hs | |
parent | 277ea0df3db147c5253e74abb12a913be10c9937 (diff) | |
download | pandoc-d5a7abd47f0862c51bc7ce8349e4290ad1c24546.tar.gz |
Change deprecated Builder.isNull to null.
Diffstat (limited to 'src/Text/Pandoc/Readers/HTML.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/HTML.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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) |