driverslop

app/Gyehoek/CPS/Lower.hs

@@ -27,6 +27,7 @@ import Gyehoek.Scheme.Syntax (Lit(LitInt))
 import Text.Printf
 import qualified Data.Text as T
 import qualified Data.Vector.Strict as V
+import Data.IntMap.Strict (IntMap)
 
 
 type Emit = Writer (Vector Text)
@@ -64,6 +65,18 @@ tshow = T.pack . show
 
 
 
+data Module = MkModule
+  { funcs :: IntMap Func
+  }
+  deriving (Show, Generic)
+
+data Func = MkFunc
+  { code :: Text
+  }
+  deriving (Show, Generic)
+
+
+
 lowerVal :: Env -> Val -> Vector Text
 
 lowerVal g (ValLit l) =