on master help sign in
Stop removing primes from variable names
0685df0Evan Czaplicki
src/Generate/JavaScript/Variable.hs+2−8
@@ -100,7 +100,7 @@ unqualified =
100
100
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
104
104
105
105
106native :: ModuleName.Canonical -> String -> JS.Expression ()
106native :: ModuleName.Canonical -> String -> JS.Expression ()
@@ -157,13 +157,7 @@ swap from to c =
157
157
158safe :: String -> String
158safe :: String -> String
159safe name =
159safe name =
160− removePrimes $
161− if Set.member name jsReserveds then '$' : name else name
160+ if Set.member name jsReserveds then '$' : name else name
162−
163−
164−removePrimes :: String -> String
165−removePrimes name =
166− map (swap '\'' '$') name
167
161
168
162
169jsReserveds :: Set.Set String
163jsReserveds :: Set.Set String