From: Christiaan Baaij <christiaan.baaij@gmail.com>
Date: Wed, 24 Jun 2009 11:10:41 +0000 (+0200)
Subject: Pulled genZipWithCall into VHDLSession monad
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=dc8d74dc0d01f63599da8e866066656fa2fbd28a;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Pulled genZipWithCall into VHDLSession monad
---

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