From 30c59596c7148b49b0e0c96526aabe7ae5f961cb Mon Sep 17 00:00:00 2001
From: Martin Fredin <fredin.martin@gmail.com>
Date: Wed, 10 May 2023 19:42:27 +0200
Subject: [PATCH] Fix lambdalifter closure in case

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

diff --git a/src/LambdaLifter.hs b/src/LambdaLifter.hs
index 433a7e0..6067ee3 100644
--- a/src/LambdaLifter.hs
+++ b/src/LambdaLifter.hs
@@ -106,7 +106,7 @@ freeVarsBranch localVars (Branch pt e) =
       , term  = ABranch pt annae
       }
   where
-    annae = freeVarsExp localVars e
+    annae = freeVarsExp (localVars <|| varsInPattern) e
     varsInPattern = go [] pt
       where
         go acc (p, t) = case p of