X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Generate.hs;h=cc65979615bf67aa9a7b08e8164124e48434c909;hb=dc8d74dc0d01f63599da8e866066656fa2fbd28a;hp=8065363ca53b8ec7965e1636f4f6ba16e6907532;hpb=4d96e10ba2805470597642cf4c2ba797eda1b1f9;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/Generate.hs b/Generate.hs
index 8065363..cc65979 100644
--- 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