diff options
| author | Tom Smeding <tom.smeding@gmail.com> | 2020-05-23 11:38:01 +0200 |
|---|---|---|
| committer | Tom Smeding <tom.smeding@gmail.com> | 2020-05-23 11:38:01 +0200 |
| commit | c3a2389203e743c874bb464c9343a2f0aab3ae62 (patch) | |
| tree | 3ff9d4225b0bfab332b84c5cceedf520f583ea06 | |
| parent | 3f180e74d54ab447d3ef16ed5439e0abe8d1da97 (diff) | |
Rewrite full lambda body in betared, don't skip binders
| -rw-r--r-- | src/Haskell/Rewrite.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haskell/Rewrite.hs b/src/Haskell/Rewrite.hs index bcec6f7..301bdb4 100644 --- a/src/Haskell/Rewrite.hs +++ b/src/Haskell/Rewrite.hs @@ -33,7 +33,7 @@ boundVars (PatTup ps) = nub $ concatMap boundVars ps betared :: Expr -> Expr betared (App (Lam (n:as) bd) (arg:args)) = - App (Lam as (rewrite n arg bd)) args + App (rewrite n arg (Lam as bd)) args betared e = recurse id betared e etared :: Expr -> Expr |