@@ -100,7 +100,7 @@ unqualified =
101qualified :: ModuleName.Canonical -> String -> String
101qualified :: ModuleName.Canonical -> String -> String
102qualified moduleName name =
102qualified moduleName name =
103− moduleToString moduleName ++ "$" ++ removePrimes name
103+ moduleToString moduleName ++ "$" ++ name
106native :: ModuleName.Canonical -> String -> JS.Expression ()
106native :: ModuleName.Canonical -> String -> JS.Expression ()
@@ -157,13 +157,7 @@ swap from to c =
158safe :: String -> String
158safe :: String -> String
159safe name =
159safe name =
161− if Set.member name jsReserveds then '$' : name else name
160+ if Set.member name jsReserveds then '$' : name else name
164−removePrimes :: String -> String
166− map (swap '\'' '$') name
169jsReserveds :: Set.Set String
163jsReserveds :: Set.Set String