X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=GlobalNameTable.hs;h=45eed895d89970629dd15c8bf0f8a4a58cecf6ff;hb=597f1b6823417f2c4cc54549f2a9d1b9f131893c;hp=8d38f6c34bc2bbe72d21e2b58427af1c70828c17;hpb=de5278001659d6673ba90e9b721c665805ce4962;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/GlobalNameTable.hs b/GlobalNameTable.hs
index 8d38f6c..45eed89 100644
--- a/GlobalNameTable.hs
+++ b/GlobalNameTable.hs
@@ -28,6 +28,8 @@ globalNameTable = mkGlobalNameTable
   , ("+>"             , (2, Left $ genExprFCall plusgtId                  ) )
   , ("map"            , (2, Right $ genMapCall                            ) )
   , ("empty"          , (0, Left $ genExprFCall emptyId                   ) )
+  , ("singleton"      , (1, Left $ genExprFCall singletonId               ) )
+  , ("copy"           , (2, Left $ genExprFCall copyId                    ) )
   , ("hwxor"          , (2, Left $ genExprOp2 AST.Xor                     ) )
   , ("hwand"          , (2, Left $ genExprOp2 AST.And                     ) )
   , ("hwor"           , (2, Left $ genExprOp2 AST.Or                      ) )