@@ -119,7 +119,7 @@ stringToConTeXt opts = concatMap (escapeCharForConTeXt opts)
119toLabel :: String -> String
119toLabel :: String -> String
120toLabel z = concatMap go z
120toLabel z = concatMap go z
121 where go x
121 where go x
122− | elem x "\\#[]\",{}%()|=" = "ux" ++ printf "%x" (ord x)
122+ | elem x ("\\#[]\",{}%()|=" :: String) = "ux" ++ printf "%x" (ord x)
123 | otherwise = [x]
123 | otherwise = [x]
125-- | Convert Elements to ConTeXt
125-- | Convert Elements to ConTeXt