[project @ 1996-01-08 20:28:12 by partain]

[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
new file mode 100644 (file)
index 0000000..728a0c8
--- /dev/null
+++ b/ghc/compiler/tests/deSugar/ds028.hs
@@ -0,0 +1,10 @@
+--!!! ds028: failable pats in top row
+
+-- 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