diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-06-26 12:12:06 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-06-26 12:12:06 -0400 |
| commit | aedc1a079416569be9bf63de2d7c1d9d2262b915 (patch) | |
| tree | 55f3106e3992dbc280f17afdf37dff476a8a7a64 /tests/efold.lac | |
| parent | 140f5079a41a0aae9ad3e577c96b443eb5337ca5 (diff) | |
Reduce efold
Diffstat (limited to 'tests/efold.lac')
| -rw-r--r-- | tests/efold.lac | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/efold.lac b/tests/efold.lac index ff595ff1..317d0852 100644 --- a/tests/efold.lac +++ b/tests/efold.lac @@ -1,5 +1,5 @@ val currier : rs :: {Type} -> Cfold.currier rs = - fold [Cfold.currier] (fn nm :: Name => fn t :: Type => fn rest :: {Type} => fn acc => fn x => acc) {} + fold [Cfold.currier] (fn nm :: Name => fn t :: Type => fn rest :: {Type} => fn acc => fn x : t => acc) {} val greenCurry : Cfold.greenCurry = currier [Cfold.greenCurryIngredients] val redCurry : Cfold.redCurry = currier [Cfold.redCurryIngredients] |