@@ -100,7 +100,7 @@ unqualified =
100100
101101qualified :: ModuleName.Canonical -> String -> String
102102qualified moduleName name =
103− moduleToString moduleName ++ "$" ++ removePrimes name
103+ moduleToString moduleName ++ "$" ++ name
104104
105105
106106native :: ModuleName.Canonical -> String -> JS.Expression ()
@@ -157,13 +157,7 @@ swap from to c =
157157
158158safe :: String -> String
159159safe name =
160− removePrimes $
161− if Set.member name jsReserveds then '$' : name else name
162−
163−
164−removePrimes :: String -> String
165−removePrimes name =
166− map (swap '\'' '$') name
160+ if Set.member name jsReserveds then '$' : name else name
167161
168162
169163jsReserveds :: Set.Set String