Pulled genZipWithCall into VHDLSession monad

diff --git a/Generate.hs b/Generate.hs
index 8065363ca53b8ec7965e1636f4f6ba16e6907532..cc65979615bf67aa9a7b08e8164124e48434c909 100644 (file)
--- a/Generate.hs
+++ b/Generate.hs
@@ -64,8 +64,8 @@ genMapCall entity [arg, res] = return $ genSm
 genZipWithCall ::
   Entity
   -> [CoreSyn.CoreBndr]
-  -> AST.GenerateSm
-genZipWithCall entity [arg1, arg2, res] = genSm
+  -> VHDLSession AST.GenerateSm
+genZipWithCall entity [arg1, arg2, res] = return $ genSm
   where
     -- Setup the generate scheme
     len         = (tfvec_len . Var.varType) res