Mangle '$' identifier to "$dollar"
commit0a178b0b5bd84f8bd005725d4bfde5711ea8c88d
authorBrian McKenna <brian@simpleenergy.com>
dateFri 31 Jan 2014, 11:25 (13 years ago)
parent9ab0ff2
src/Language/PureScript/Pretty/Common.hs+1
@@ -40,6 +40,7 @@ identToJs (Op op) = concatMap identCharToString op
4040identCharToString :: Char -> String
4141identCharToString c | isAlphaNum c = [c]
4242identCharToString '_' = "_"
43+identCharToString '$' = "$dollar"
4344identCharToString '~' = "$tilde"
4445identCharToString '=' = "$eq"
4546identCharToString '<' = "$less"