@@ -14,7 +14,7 @@ import Language.PureScript.Names
1414moduleNameToCpp :: ModuleName -> Text
1515moduleNameToCpp (ModuleName pns) =
1616 let name = T.intercalate "_" (runProperName `map` pns)
17− in if nameIsCppBuiltIn name then ("$" <> name <> "$") else name
17+ in if nameIsCppBuiltIn name then "$$" <> name else name
1818
1919-- | Convert an 'Ident' into a valid C++ identifier:
2020--
@@ -34,7 +34,7 @@ unusedName = "$unused$"
3434
3535properToCpp :: Text -> Text
3636properToCpp name
37− | nameIsCppReserved name || nameIsCppBuiltIn name || prefixIsReserved name = name <> "_"
37+ | nameIsCppReserved name || nameIsCppBuiltIn name || prefixIsReserved name = "$$" <> name
3838 | otherwise = T.concatMap identCharToText name
3939
4040-- | Test if a string is a valid AST identifier without escaping.