wasmslop

app/Gyehoek/CPS/Lower.hs

@@ -0,0 +1,25 @@
+{-# LANGUAGE OverloadedLists #-}
+module Gyehoek.CPS.Lower
+  ( lower
+  ) where
+
+import Gyehoek.CPS.Syntax
+import Gyehoek.Scheme.Syntax qualified as Scm
+import Gyehoek.GenSym
+import Data.List.NonEmpty (NonEmpty((:|)))
+import Effectful
+import Control.Monad.Cont qualified as Cont
+import Effectful.Writer.Static.Local
+import Data.Text (Text)
+import Data.Vector.Strict (Vector)
+import Control.Lens
+import Data.Foldable
+
+
+type Emit = Writer (Vector Text)
+
+runEmit :: Eff (Emit : es) a -> Eff es (a, Text)
+runEmit = (mapped . _2 %~ fold) . runWriter
+
+lower :: Exp -> Eff _ _
+lower = _