git.iko.soy/elk
on master help sign in
Use safe names for substitutions
78c0df4Evan Czaplicki
src/Generate/JavaScript.hs+1−1
compare with master
unifiedsplit
@@ -460,7 +460,7 @@ generateBranch root (Opt.Branch substitutions expr) =
460loadPath :: String -> (String, DT.Path) -> State Int (VarDecl ())
460loadPath :: String -> (String, DT.Path) -> State Int (VarDecl ())
461loadPath root (name, path) =
461loadPath root (name, path) =
462 do jsAccessExpr <- generateJsExpr (pathToExpr root path)
462 do jsAccessExpr <- generateJsExpr (pathToExpr root path)
463− return $ varDecl name jsAccessExpr
463+ return $ varDecl (Var.safe name) jsAccessExpr
464
464
465
465
466pathToExpr :: String -> DT.Path -> Opt.Expr
466pathToExpr :: String -> DT.Path -> Opt.Expr