- [ ("!" , (2, Left $ genExprFCall exId ) )
- , ("replace" , (3, Left $ genExprFCall replaceId ) )
- , ("head" , (1, Left $ genExprFCall headId ) )
- , ("last" , (1, Left $ genExprFCall lastId ) )
- , ("tail" , (1, Left $ genExprFCall tailId ) )
- , ("init" , (1, Left $ genExprFCall initId ) )
- , ("take" , (2, Left $ genExprFCall takeId ) )
- , ("drop" , (2, Left $ genExprFCall dropId ) )
- , ("+>" , (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 ) )
- , ("hwnot" , (1, Left $ genExprOp1 AST.Not ) )
+ [ (exId , (2, Left $ genExprFCall exId ) )
+ , (replaceId , (3, Left $ genExprFCall replaceId ) )
+ , (headId , (1, Left $ genExprFCall headId ) )
+ , (lastId , (1, Left $ genExprFCall lastId ) )
+ , (tailId , (1, Left $ genExprFCall tailId ) )
+ , (initId , (1, Left $ genExprFCall initId ) )
+ , (takeId , (2, Left $ genExprFCall takeId ) )
+ , (dropId , (2, Left $ genExprFCall dropId ) )
+ , (plusgtId , (2, Left $ genExprFCall plusgtId ) )
+ , (mapId , (2, Right $ genMapCall ) )
+ , (emptyId , (0, Left $ genExprFCall emptyId ) )
+ , (singletonId , (1, Left $ genExprFCall singletonId ) )
+ , (copyId , (2, Left $ genExprFCall copyId ) )
+ , (hwxorId , (2, Left $ genExprOp2 AST.Xor ) )
+ , (hwandId , (2, Left $ genExprOp2 AST.And ) )
+ , (hworId , (2, Left $ genExprOp2 AST.Or ) )
+ , (hwnotId , (1, Left $ genExprOp1 AST.Not ) )