@@ -40,6 +40,24 @@ identToJs (Op op) = concatMap identCharToString op
40identCharToString :: Char -> String
40identCharToString :: Char -> String
41identCharToString c | isAlphaNum c = [c]
41identCharToString c | isAlphaNum c = [c]
42identCharToString '_' = "_"
42identCharToString '_' = "_"
43+identCharToString '~' = "$tilde"
44+identCharToString '=' = "$eq"
45+identCharToString '<' = "$less"
46+identCharToString '>' = "$greater"
47+identCharToString '!' = "$bang"
48+identCharToString '#' = "$hash"
49+identCharToString '%' = "$percent"
50+identCharToString '^' = "$up"
51+identCharToString '&' = "$amp"
52+identCharToString '|' = "$bar"
53+identCharToString '*' = "$times"
54+identCharToString '/' = "$div"
55+identCharToString '+' = "$plus"
56+identCharToString '-' = "$minus"
57+identCharToString ':' = "$colon"
58+identCharToString '\\' = "$bslash"
59+identCharToString '?' = "$qmark"
60+identCharToString '@' = "$at"
43identCharToString c = '$' : show (ord c)
61identCharToString c = '$' : show (ord c)