Commit 8241cdd4 authored by ian@well-typed.com's avatar ian@well-typed.com
Browse files

Remove a redundant wrapper function

parent 0499eac9
......@@ -919,10 +919,8 @@ type OutExpr = CoreExpr
-- In these functions the substitution maps InVar -> OutExpr
----------------------
simple_opt_expr, simple_opt_expr' :: Subst -> InExpr -> OutExpr
simple_opt_expr s e = simple_opt_expr' s e
simple_opt_expr' subst expr
simple_opt_expr :: Subst -> InExpr -> OutExpr
simple_opt_expr subst expr
= go expr
where
go (Var v) = lookupIdSubst (text "simpleOptExpr") subst v
......
Markdown is supported
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