diff options
Diffstat (limited to 'testsuite/tests/deSugar/should_compile/ds031.hs')
| -rw-r--r-- | testsuite/tests/deSugar/should_compile/ds031.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/testsuite/tests/deSugar/should_compile/ds031.hs b/testsuite/tests/deSugar/should_compile/ds031.hs new file mode 100644 index 0000000000..5f25c15b19 --- /dev/null +++ b/testsuite/tests/deSugar/should_compile/ds031.hs @@ -0,0 +1,7 @@ +module ShouldCompile where + +foldPair :: (a->a->a,b->b->b) -> (a,b) -> [(a,b)] -> (a,b) +foldPair fg ab [] = ab +foldPair fg@(f,g) ab ((a,b):abs) = (f a u,g b v) + where (u,v) = foldPair fg ab abs + |