@@ -142,6 +142,11 @@ translateIdentifier =
142142 replaceBadChars '=' = "_eq"
143143 replaceBadChars '|' = "_pipe"
144144 replaceBadChars '&' = "_amp"
145+ replaceBadChars '/' = "_SL"
146+ replaceBadChars '\\' = "_BSL"
147+ replaceBadChars '%' = "_per"
148+ replaceBadChars '?' = "_que"
149+ replaceBadChars '~' = "_til"
145150 replaceBadChars '\'' = "_apo"
146151 replaceBadChars c
147152 | isDigit c = "_" ++ [c] ++ "_"