git.iko.soy/elk
on master help sign in
Fix issue with imported reserved names from #214
017f96bEvan Czaplicki
compiler/Generate/JavaScript.hs+1−1
compare with master
unifiedsplit
@@ -17,7 +17,7 @@ import Language.ECMAScript3.PrettyPrint
17import Parse.Helpers (jsReserveds)
17import Parse.Helpers (jsReserveds)
18
18
19makeSafe :: String -> String
19makeSafe :: String -> String
20−makeSafe = dereserve . deprime
20+makeSafe = List.intercalate "." . map dereserve . split . deprime
21 where
21 where
22 deprime = map (\c -> if c == '\'' then '$' else c)
22 deprime = map (\c -> if c == '\'' then '$' else c)
23 dereserve x = case Set.member x jsReserveds of
23 dereserve x = case Set.member x jsReserveds of