From f82d91eb497b7d243f775fa85dd4183841af8f9e Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 4 Jun 2019 08:39:54 -0700 Subject: Markdown reader: don't create implicit reference for empty header. Closes #5549. --- src/Text/Pandoc/Readers/Markdown.hs | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index c3469b22b..ab5aa6b05 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -589,10 +589,13 @@ setextHeader = try $ do return $ B.headerWith attr' level <$> text registerImplicitHeader :: PandocMonad m => String -> Attr -> MarkdownParser m () -registerImplicitHeader raw attr@(ident, _, _) = do - let key = toKey $ "[" ++ raw ++ "]" - updateState (\s -> s { stateHeaderKeys = - M.insert key (('#':ident,""), attr) (stateHeaderKeys s) }) +registerImplicitHeader raw attr@(ident, _, _) + | null raw = return () + | otherwise = do + let key = toKey $ "[" ++ raw ++ "]" + updateState $ \s -> + s { stateHeaderKeys = M.insert key (('#':ident,""), attr) + (stateHeaderKeys s) } -- -- hrule block -- cgit v1.2.3