From c3a2389203e743c874bb464c9343a2f0aab3ae62 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom.smeding@gmail.com>
Date: Sat, 23 May 2020 11:38:01 +0200
Subject: Rewrite full lambda body in betared, don't skip binders

---
 src/Haskell/Rewrite.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Haskell')

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
-- 
cgit v1.2.3-70-g09d2