From 694021a9bd1dd0420a8594ea24218c47fbbab51e Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Wed, 5 Oct 2022 14:48:14 +0300
Subject: Refactor Depth into LContext

---
 test/Spec.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'test/Spec.hs')

diff --git a/test/Spec.hs b/test/Spec.hs
index 710e528..e67f2b7 100644
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -29,7 +29,7 @@ parseTests = testGroup "parse" [
 evaluateTests = testGroup "evaluate" [
      do let env = M.fromList [builtinAdd2] :: Env
         (gotAST, LState { stateEnv = gotEnv }) <- expectSuccessL env $
-            evaluate 0 (astFunctionCall [astSymbol "+", astInteger 1, astInteger 2])
+            evaluate (astFunctionCall [astSymbol "+", astInteger 1, astInteger 2])
 
         let expectedAST = astInteger 3
         assertEqual "" gotAST expectedAST
-- 
cgit v1.3