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

[ghc-hetmet.git] / ghc / tests / rename / should_fail / rnfail026.hs

diff --git a/ghc/tests/rename/should_fail/rnfail026.hs b/ghc/tests/rename/should_fail/rnfail026.hs
deleted file mode 100644 (file)
index 8dcd154..0000000
--- a/ghc/tests/rename/should_fail/rnfail026.hs
+++ /dev/null
@@ -1,19 +0,0 @@
-{-# OPTIONS -fglasgow-exts #-}
-
--- This one made ghc-4.08 crash 
--- rename/RnEnv.lhs:239: Non-exhaustive patterns in function get_tycon_key
--- The type in the Monad instance is utterly bogus, of course
-
-module ShouldCompile ( Set ) where
-
-
-data Set a = Set [a]
-       deriving (Eq, Ord, Read, Show)
-
-instance Functor Set where
-        f `fmap` (Set xs) = Set $ f `fmap` xs
-
-instance Monad (forall a. Eq a => Set a) where
-        return x = Set [x]
-
-instance Eq (forall a. [a]) where