@@ -240,7 +240,7 @@ toLabel z = go `fmap` stringToLaTeX URLString z
240 where go [] = ""
240 where go [] = ""
241 go (x:xs)
241 go (x:xs)
242 | (isLetter x || isDigit x) && isAscii x = x:go xs
242 | (isLetter x || isDigit x) && isAscii x = x:go xs
243− | elem x "-+=:;." = x:go xs
243+ | elem x ("-+=:;." :: String) = x:go xs
244 | otherwise = "ux" ++ printf "%x" (ord x) ++ go xs
244 | otherwise = "ux" ++ printf "%x" (ord x) ++ go xs
246-- | Puts contents into LaTeX command.
246-- | Puts contents into LaTeX command.