[project @ 2001-08-22 12:24:41 by simonmar]

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

diff --git a/ghc/tests/deSugar/should_compile/ds005.hs b/ghc/tests/deSugar/should_compile/ds005.hs
deleted file mode 100644 (file)
index a02e8d9..0000000
--- a/ghc/tests/deSugar/should_compile/ds005.hs
+++ /dev/null
@@ -1,15 +0,0 @@
--- !!! ds005 -- mappairs from SLPJ Ch 5'
---
--- this simply tests a "typical" example
-
-module ShouldCompile 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