reorg 1

1 files changed, 2 insertions, 10 deletions

diff --git a/app/Env.hs b/app/Env.hs
index 7ede4c2..ba86c9e 100644
--- a/app/Env.hs
+++ b/app/Env.hs
@@ -1,21 +1,13 @@
 module Env where
 
-import qualified Code
+import Code (Interp (..))
 import Control.Monad.IO.Class
 import Control.Monad.Trans.State.Lazy
 import qualified IR
 import qualified Operators
 import System.Console.Haskeline
 
-data PrlgState =
-  PrlgState
-    { defs :: Code.Defs
-    , ops :: Operators.Ops
-    , strtable :: IR.StrTable
-    }
-  deriving (Show)
-
-type PrlgEnv a = StateT PrlgState (InputT IO) a
+type PrlgEnv a = StateT Code.Interp (InputT IO) a
 
 withStrTable :: (IR.StrTable -> (IR.StrTable, a)) -> PrlgEnv a
 withStrTable f = do