@@ -41,6 +41,7 @@ identToJs (Escaped name) = name
41identCharToString :: Char -> String
41identCharToString :: Char -> String
42identCharToString c | isAlphaNum c = [c]
42identCharToString c | isAlphaNum c = [c]
43identCharToString '_' = "_"
43identCharToString '_' = "_"
44+identCharToString '.' = "$dot"
44identCharToString '$' = "$dollar"
45identCharToString '$' = "$dollar"
45identCharToString '~' = "$tilde"
46identCharToString '~' = "$tilde"
46identCharToString '=' = "$eq"
47identCharToString '=' = "$eq"