X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Constants.hs;h=1637d582ea14c53f7841cd64b3c6a2c529d1b590;hb=d9fdace4c79166836aaa00d7cfa5541f2dc29c3f;hp=43cc189557b923e276e8afde9c8ad66dc83df668;hpb=02534f209c10759b7f1c8d3eedff5c742570de76;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/Constants.hs b/Constants.hs
index 43cc189..1637d58 100644
--- a/Constants.hs
+++ b/Constants.hs
@@ -165,6 +165,22 @@ mapId = "map"
 zipWithId :: String
 zipWithId = "zipWith"
 
+-- | foldl function identifier
+foldlId :: String
+foldlId = "foldl"
+
+-- | foldr function identifier
+foldrId :: String
+foldrId = "foldr"
+
+-- | zip function identifier
+zipId :: String
+zipId = "zip"
+
+-- | unzip function identifier
+unzipId :: String
+unzipId = "unzip"
+
 -- | hwxor function identifier
 hwxorId :: String
 hwxorId = "hwxor"
@@ -181,6 +197,8 @@ hwnotId = "hwnot"
 hwandId :: String
 hwandId = "hwand"
 
+lengthTId :: String
+lengthTId = "lengthT"
 
 ------------------
 -- VHDL type marks