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

---
 app/Main.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'app')

diff --git a/app/Main.hs b/app/Main.hs
index 37844c9..e5e7e90 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -2,6 +2,7 @@ module Main (main) where
 import System.Environment
 import Control.Monad.Except
 import System.Console.Haskeline
+import qualified Data.Map as M
 import Utils
 import Builtins
 import Interpreter
@@ -60,7 +61,8 @@ main = do
         ls = LState { stateConfig = config,
                       stateEnv = builtinEnv,
                       stateDepth = 0,
-                      statePure = Impure }
+                      statePure = Impure,
+                      stateAtomMap = M.empty }
 
     if (configShowHelp config) then do
         putStrLn $ "Usage: " ++ progName ++ "                 # to open REPL"
-- 
cgit v1.3