ghc/tests/rename/should_fail/rnfail026.hs

   1 {-# OPTIONS -fglasgow-exts #-}
   2
   3 -- This one made ghc-4.08 crash
   4 -- rename/RnEnv.lhs:239: Non-exhaustive patterns in function get_tycon_key
   5 -- The type in the Monad instance is utterly bogus, of course
   6
   7 module ShouldCompile ( Set ) where
   8
   9
  10 data Set a = Set [a]
  11        deriving (Eq, Ord, Read, Show)
  12
  13 instance Functor Set where
  14         f `fmap` (Set xs) = Set $ f `fmap` xs
  15
  16 instance Monad (forall a. Eq a => Set a) where
  17         return x = Set [x]
  18
  19 instance Eq (forall a. [a]) where