@@ -589,10 +589,13 @@ setextHeader = try $ do
589589 return $ B.headerWith attr' level <$> text
590590
591591registerImplicitHeader :: PandocMonad m => String -> Attr -> MarkdownParser m ()
592−registerImplicitHeader raw attr@(ident, _, _) = do
593− let key = toKey $ "[" ++ raw ++ "]"
594− updateState (\s -> s { stateHeaderKeys =
595− M.insert key (('#':ident,""), attr) (stateHeaderKeys s) })
592+registerImplicitHeader raw attr@(ident, _, _)
593+ | null raw = return ()
594+ | otherwise = do
595+ let key = toKey $ "[" ++ raw ++ "]"
596+ updateState $ \s ->
597+ s { stateHeaderKeys = M.insert key (('#':ident,""), attr)
598+ (stateHeaderKeys s) }
596599
597600--
598601-- hrule block