@@ -40,6 +40,7 @@ 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 '$' = "$dollar"
43identCharToString '~' = "$tilde"
44identCharToString '~' = "$tilde"
44identCharToString '=' = "$eq"
45identCharToString '=' = "$eq"
45identCharToString '<' = "$less"
46identCharToString '<' = "$less"