git.haldean.org del / 6f4c5df
update Inlining to support imported names Haldean Brown 2 years ago
1 changed file(s) with 1 addition(s) and 0 deletion(s). Raw diff Collapse all Expand all
2323 case Map.lookup name m of
2424 Just (Def _ _ dargs body) -> makeLets (zip (map fst dargs) aargs) body
2525 Nothing -> e
26 substFunc a (Apply sid@(ScopedId _ _) aargs) = substFunc a (Apply (canonicalId sid) aargs)
2627 substFunc _ e = e
2728
2829 makeLets :: [(Name, Expr)] -> Expr -> Expr