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