diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2019-06-04 08:39:54 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-06-04 08:39:54 -0700 |
| commit | f82d91eb497b7d243f775fa85dd4183841af8f9e (patch) | |
| tree | 3aa8da44dfaa9ec8b8c37865b7b1084295b73506 /src/Text/Pandoc | |
| parent | 928681ca049e769bd32c195c6102db5506e7f6fa (diff) | |
| download | pandoc-f82d91eb497b7d243f775fa85dd4183841af8f9e.tar.gz | |
Markdown reader: don't create implicit reference for empty header.
Closes #5549.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 11 |
1 files changed, 7 insertions, 4 deletions
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 |