diff options
Diffstat (limited to 'tests/cfold.lac')
-rw-r--r-- | tests/cfold.lac | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/cfold.lac b/tests/cfold.lac new file mode 100644 index 00000000..5eda74e9 --- /dev/null +++ b/tests/cfold.lac @@ -0,0 +1,10 @@ +con currier = fold (fn nm => fn t => fn acc => t -> acc) {} + +con greenCurry = currier [] +val greenCurry : greenCurry = {} + +con redCurry = currier [A = int, B = string] +val redCurry : redCurry = fn x : int => fn y : string => {} + +con yellowCurry = currier [A = string, B = int, C = float] +val yellowCurry : yellowCurry = fn x => fn y => fn z => {} |