[project @ 1997-07-30 23:52:45 by sof]

[ghc-hetmet.git] / ghc / compiler / tests / deSugar / ds005.hs

diff --git a/ghc/compiler/tests/deSugar/ds005.hs b/ghc/compiler/tests/deSugar/ds005.hs
deleted file mode 100644 (file)
index 505d500..0000000
--- a/ghc/compiler/tests/deSugar/ds005.hs
+++ /dev/null
@@ -1,15 +0,0 @@
---!!! ds005 -- mappairs from SLPJ Ch 5'
---
--- this simply tests a "typical" example
-
-module MapPairs where
-
--- from SLPJ, p 78
-mappairs f []     ys     = []
-mappairs f (x:xs) []     = []
-mappairs f (x:xs) (y:ys) = f x y : mappairs f xs ys
-
--- from p 80
-mappairs' f []     ys     = []
-mappairs' f x      []     = []
-mappairs' f (x:xs) (y:ys) = f x y : mappairs' f xs ys