diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2022-10-05 14:48:14 +0300 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-05 14:21:53 +0200 |
| commit | 694021a9bd1dd0420a8594ea24218c47fbbab51e (patch) | |
| tree | cd59da1ef660dda410050b2ee467b16fdd8f60ca /test/TestUtils.hs | |
| parent | 7a6dd411a5d8e515fa5fa3d32650565c2e8a5f1b (diff) | |
Refactor Depth into LContext
Diffstat (limited to 'test/TestUtils.hs')
| -rw-r--r-- | test/TestUtils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 = |