From dc8d74dc0d01f63599da8e866066656fa2fbd28a Mon Sep 17 00:00:00 2001
From: Christiaan Baaij <christiaan.baaij@gmail.com>
Date: Wed, 24 Jun 2009 13:10:41 +0200
Subject: [PATCH] Pulled genZipWithCall into VHDLSession monad

---
 Generate.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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
-- 
2.30.2