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

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

diff --git a/ghc/compiler/tests/deSugar/ds016.hs b/ghc/compiler/tests/deSugar/ds016.hs
deleted file mode 100644 (file)
index 57e0053..0000000
--- a/ghc/compiler/tests/deSugar/ds016.hs
+++ /dev/null
@@ -1,15 +0,0 @@
---!!! ds016 -- case expressions
---
-module Tests where
-
-f x y z =
-    case ( x ++ x ++ x ++ x ++ x ) of
-       []      -> []
-       [a]     -> error "2"
-       [a,b,c] ->
-                   case ( (y,z,y,z) ) of
---                   (True, _, False, _) | True == False -> z
---                   (True, _, False, _) | True == False -> z
-                     _ -> z
-
-       (a:bs)  -> error "4"