X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftests%2FdeSugar%2Fds031.hs;fp=ghc%2Fcompiler%2Ftests%2FdeSugar%2Fds031.hs;h=0000000000000000000000000000000000000000;hb=29b46083beaa048af4b4a68e8f96909ac98a639f;hp=3378800e169d02da98052ae62635a688e8dd86ed;hpb=3436a37c72644f82471a7d8c684d67438b86cc3a;p=ghc-hetmet.git

diff --git a/ghc/compiler/tests/deSugar/ds031.hs b/ghc/compiler/tests/deSugar/ds031.hs
deleted file mode 100644
index 3378800..0000000
--- a/ghc/compiler/tests/deSugar/ds031.hs
+++ /dev/null
@@ -1,7 +0,0 @@
-module ShouldSucceed 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
-