@@ -571,7 +571,7 @@ inlineToLaTeX (LineBreak) = return "\\\\"
571inlineToLaTeX Space = return space
571inlineToLaTeX Space = return space
572inlineToLaTeX (Link txt ('#':ident, _)) = do
572inlineToLaTeX (Link txt ('#':ident, _)) = do
573 contents <- inlineListToLaTeX txt
573 contents <- inlineListToLaTeX txt
574− ident' <- stringToLaTeX False ident
574+ ident' <- stringToLaTeX True ident
575 return $ text "\\hyperref" <> brackets (text ident') <> braces contents
575 return $ text "\\hyperref" <> brackets (text ident') <> braces contents
576inlineToLaTeX (Link txt (src, _)) =
576inlineToLaTeX (Link txt (src, _)) =
577 case txt of
577 case txt of