X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=GlobalNameTable.hs;h=9a6122778e91aee8a11a5d6180769c71f1208366;hb=a44db062ae75b4fe3ce28368e07323130a14fe58;hp=feea40170e750e69ec32390abda99bbaa33ed68d;hpb=8c52b6cf13be6b0080ce3353bebfd04b18336036;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/GlobalNameTable.hs b/GlobalNameTable.hs
index feea401..9a61227 100644
--- a/GlobalNameTable.hs
+++ b/GlobalNameTable.hs
@@ -28,6 +28,7 @@ globalNameTable = mkGlobalNameTable
   , (plusgtId         , (2, Left $ genExprFCall plusgtId                  ) )
   , (mapId            , (2, Right $ genMapCall                            ) )
   , (zipWithId        , (3, Right $ genZipWithCall                        ) )
+  , (foldlId          , (3, Right $ genFoldlCall                          ) )
   , (emptyId          , (0, Left $ genExprFCall emptyId                   ) )
   , (singletonId      , (1, Left $ genExprFCall singletonId               ) )
   , (copyId           , (2, Left $ genExprFCall copyId                    ) )