@@ -308,7 +308,7 @@ blockToLaTeX (Div (identifier,classes,_) bs) = do
308 ref <- toLabel identifier
308 ref <- toLabel identifier
309 let linkAnchor = if null identifier
309 let linkAnchor = if null identifier
310 then empty
310 then empty
311− else "\\hyperdef{}" <> braces (text ref)
311+ else "\\hyperdef{}" <> braces (text ref) <> "{}"
312 contents <- blockListToLaTeX bs
312 contents <- blockListToLaTeX bs
313 if beamer && "notes" `elem` classes -- speaker notes
313 if beamer && "notes" `elem` classes -- speaker notes
314 then return $ "\\note" <> braces contents
314 then return $ "\\note" <> braces contents
@@ -672,7 +672,7 @@ inlineToLaTeX (Span (id',classes,_) ils) = do
672 ref <- toLabel id'
672 ref <- toLabel id'
673 let linkAnchor = if null id'
673 let linkAnchor = if null id'
674 then empty
674 then empty
675− else "\\hyperdef{}" <> braces (text ref)
675+ else "\\hyperdef{}" <> braces (text ref) <> "{}"
676 fmap (linkAnchor <>)
676 fmap (linkAnchor <>)
677 ((if noEmph then inCmd "textup" else id) .
677 ((if noEmph then inCmd "textup" else id) .
678 (if noStrong then inCmd "textnormal" else id) .
678 (if noStrong then inCmd "textnormal" else id) .