From 8baa85fd4c3607a7b3cebf2518a930a3b8a924bf Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Fri, 9 Dec 2022 23:52:58 +0200
Subject: Add atom data type

---
 test/TestUtils.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'test/TestUtils.hs')

diff --git a/test/TestUtils.hs b/test/TestUtils.hs
index ff53310..89bc6e6 100644
--- a/test/TestUtils.hs
+++ b/test/TestUtils.hs
@@ -20,7 +20,8 @@ testRunL env = runL LState {
     stateConfig = testConfig,
     stateEnv = env,
     stateDepth = 0,
-    statePure = Impure
+    statePure = Impure,
+    stateAtomMap = M.empty
 }
 
 expectSuccessL :: Env -> LContext a -> IO (a, LState)
-- 
cgit v1.3