@@ -33,9 +33,11 @@ moduleName name =
3333
3434
3535varName :: String -> String
36−varName x = map (swap '\'' '$') x'
37− where
38− x' = if Set.member x jsReserveds then '$' : x else x
36+varName name =
37+ let saferName =
38+ if Set.member name jsReserveds then '$' : name else name
39+ in
40+ map (swap '\'' '$') saferName
3941
4042
4143value :: Module.Name -> String -> JS.Expression ()
@@ -56,7 +58,7 @@ jsReserveds = Set.fromList
5658 , "interface", "let", "package", "private", "protected", "public"
5759 , "static", "yield"
5860 -- reserved by the Elm runtime system
59− , "Elm", "ElmRuntime"
61+ , "Elm"
6062 , "F2", "F3", "F4", "F5", "F6", "F7", "F8", "F9"
6163 , "A2", "A3", "A4", "A5", "A6", "A7", "A8", "A9"
6264 ]