Merge pull request #1055 from elm-lang/dev
Use safe names for substitutions
commit698aabe9e456c2e06c8038f6388997a8cac0f549
authorEvan Czaplicki <info@elm-lang.org>
dateSun 13 Sep 2015, 22:10 (11 years ago)
parent8ac06ce78c0df4
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