From 694021a9bd1dd0420a8594ea24218c47fbbab51e Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Wed, 5 Oct 2022 14:48:14 +0300 Subject: Refactor Depth into LContext --- test/TestUtils.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'test/TestUtils.hs') diff --git a/test/TestUtils.hs b/test/TestUtils.hs index e505de2..84f95bf 100644 --- a/test/TestUtils.hs +++ b/test/TestUtils.hs @@ -14,7 +14,7 @@ testConfig = Config { } testRunL :: Env -> LContext a -> IO (Either LException (a, LState)) -testRunL env = runL LState { stateConfig = testConfig, stateEnv = env } +testRunL env = runL LState { stateConfig = testConfig, stateEnv = env, stateDepth = 0 } expectSuccessL :: Env -> LContext a -> IO (a, LState) expectSuccessL env lc = -- cgit v1.3