X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Generate.hs;h=f81d7692434a7247325f1d1fdc3f1292d23df9b7;hb=de5278001659d6673ba90e9b721c665805ce4962;hp=6405a6e620fb18e78ff41978f11e4370f2064eff;hpb=ff02403f76778ebab3e61a6d7a62827c6fb0a3de;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/Generate.hs b/Generate.hs
index 6405a6e..f81d769 100644
--- a/Generate.hs
+++ b/Generate.hs
@@ -27,10 +27,9 @@ genExprFCall fName args =
 genMapCall :: 
   Int -- | The length of the vector 
   -> Entity -- | The entity to map
-  -> AST.VHDLId -- | The input vector
-  -> AST.VHDLId -- | The output vector
+  -> [AST.VHDLId] -- | The vectors
   -> AST.GenerateSm -- | The resulting generate statement
-genMapCall len entity arg res = genSm
+genMapCall len entity [arg, res] = genSm
   where
     label = AST.unsafeVHDLBasicId "mapVector"
     nPar  = AST.unsafeVHDLBasicId "n"