This commit is contained in:
Mark Wright 2015-01-05 14:41:54 +11:00
parent cd5b1fe5e3
commit 4e3281c550

View file

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