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

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

diff --git a/ghc/compiler/tests/deSugar/ds028.hs b/ghc/compiler/tests/deSugar/ds028.hs
deleted file mode 100644 (file)
index 18c0b7d..0000000
--- a/ghc/compiler/tests/deSugar/ds028.hs
+++ /dev/null
@@ -1,13 +0,0 @@
---!!! ds028: failable pats in top row
-
-module ShouldSucceed where
-
-
--- when the first row of pats doesn't have convenient
--- variables to grab...
-
-mAp f []       = []
-mAp f (x:xs)   = f x : mAp f xs
-
-True  |||| _   =  True
-False |||| x   =  x