Add atom data type

1 files changed, 3 insertions, 1 deletions

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"