Use safe names for substitutions
commit78c0df4c9d807f114428e93d35260e3ea360a429
authorEvan Czaplicki <info@elm-lang.org>
dateSun 13 Sep 2015, 21:56 (11 years ago)
parent44519e8
src/Generate/JavaScript.hs+1−1
@@ -460,7 +460,7 @@ generateBranch root (Opt.Branch substitutions expr) =
460460loadPath :: String -> (String, DT.Path) -> State Int (VarDecl ())
461461loadPath root (name, path) =
462462 do jsAccessExpr <- generateJsExpr (pathToExpr root path)
463− return $ varDecl name jsAccessExpr
463+ return $ varDecl (Var.safe name) jsAccessExpr
464464
465465
466466pathToExpr :: String -> DT.Path -> Opt.Expr