add code stack

src/State.hs

@@ -1,8 +1,9 @@
 {-# LANGUAGE TemplateHaskell #-}
+
 module State where
 
-import qualified Data.Map as Map
 import Control.Lens
+import Data.Map qualified as Map
 
 -- The exec stack must store heterogenous types,
 -- and we must be able to detect that type at runtime.
@@ -47,6 +48,7 @@ instance Show Gene where
 
 data State = State
   { _exec :: [Gene],
+    _code :: [Gene],
     _int :: [Int],
     _float :: [Float],
     _bool :: [Bool],
@@ -64,6 +66,7 @@ emptyState :: State
 emptyState =
   State
     { _exec = [],
+      _code = [],
       _int = [],
       _float = [],
       _bool = [],
@@ -78,11 +81,12 @@ exampleState :: State
 exampleState =
   State
     { _exec = [],
+      _code = [],
       _int = [32, 56],
       _float = [3.23, 9.235],
       _bool = [True, False],
       _parameter = [],
-      _intVector = [[1,2], [5,6,8]],
+      _intVector = [[1, 2], [5, 6, 8]],
       _floatVector = [[1.234, 9.21], [5.42, 6.221, 8.5493]],
       _boolVector = [[True, False], [False, False, True]],
       _input = Map.empty