lambda and if-number }:3

src/Gyehoek/Wasm.hs

@@ -32,6 +32,9 @@ module Gyehoek.Wasm
   , renderModule
   , wat
   , wats
+  , defineFunctions
+  , defineTypes
+  , defineGlobals
   )
   where
 
@@ -133,12 +136,21 @@ type instance DispatchOf GenMod = Dynamic
 defineFunction :: GenMod :> es => Sexp -> Eff es Idx
 defineFunction = send . DefineFunction
 
+defineFunctions :: GenMod :> es => List Sexp -> Eff es (List Idx)
+defineFunctions = traverse (send . DefineFunction)
+
 defineType :: GenMod :> es => Sexp -> Eff es Idx
 defineType = send . DefineType
 
+defineTypes :: GenMod :> es => List Sexp -> Eff es (List Idx)
+defineTypes = traverse (send . DefineType)
+
 defineGlobal :: GenMod :> es => Sexp -> Eff es Idx
 defineGlobal = send . DefineGlobal
 
+defineGlobals :: GenMod :> es => List Sexp -> Eff es (List Idx)
+defineGlobals = traverse (send . DefineGlobal)
+
 emit :: GenMod :> es => List Sexp -> Eff es ()
 emit = traverse_ (send . Emit)