Commit 4a2c8802 authored by marton bognar's avatar marton bognar
Browse files

Fix free variables for string variable binders

parent 8d719154
......@@ -68,10 +68,12 @@ _substExpr sname consName =
(VarExpr "sub")
(ConstrInst consName [VarExpr "var"])
_oneDeeper namespace expr = FnCall "concat" [ListExpr (ListExpr [VarExpr "b"] : expr)]
ef = EF {
paramForCtor = _getCtorParams,
freeVarExprForVarCtor = _varCtorFreeVar,
transformForAddAttr = (\n e -> head e),
transformForAddAttr = _oneDeeper,
includeBinders = True
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment