From 30cb4f43f693d5314bbd082a8d0690607cfa7bee Mon Sep 17 00:00:00 2001 From: joshvera Date: Thu, 6 Dec 2018 15:53:58 -0500 Subject: [PATCH] Remove unused bind --- src/Data/Syntax/Statement.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Data/Syntax/Statement.hs b/src/Data/Syntax/Statement.hs index b26b1cd8e..de7b44ce5 100644 --- a/src/Data/Syntax/Statement.hs +++ b/src/Data/Syntax/Statement.hs @@ -139,7 +139,7 @@ instance Evaluatable Let where valueName <- maybeM (throwEvalError NoNameError) (declaredName letValue) assocScope <- associatedScope (Declaration valueName) - withLexicalScopeAndFrame $ do + _ <- withLexicalScopeAndFrame $ do declare (Declaration name) letSpan assocScope letVal <- (eval letValue >>= Abstract.value) slot <- lookupDeclaration (Declaration name)