From a70cad8f86362109d0c749107a43bc9019a2a7b2 Mon Sep 17 00:00:00 2001
From: joshvera <josh@joshvera.com>
Date: Fri, 10 Aug 2018 11:23:45 -0400
Subject: [PATCH] eta reduce

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

diff --git a/src/Control/Abstract/Primitive.hs b/src/Control/Abstract/Primitive.hs
index 571cbfc69..d9d2b827c 100644
--- a/src/Control/Abstract/Primitive.hs
+++ b/src/Control/Abstract/Primitive.hs
@@ -88,7 +88,7 @@ instance (Member Fresh effects, Lambda address value effects ret) => Lambda addr
   {-# INLINE lambda' #-}
 
 instance Member (Function address value) effects => Lambda address value effects (Evaluator address value effects address) where
-  lambda' vars body = function vars lowerBound body
+  lambda' vars = function vars lowerBound
   {-# INLINE lambda' #-}
 
 builtInPrint :: ( AbstractValue address value effects