ghc/tests/reader/should_compile/read019.hs

   1 -- !!! Checking what's legal in the body of a class declaration.
   2 module ShouldSucceed where
   3
   4 class Foo a where {
   5   (--<>--) :: a -> a -> Int  ;
   6   infixl 5 --<>-- ;
   7   (--<>--) _ _ = 2 ; -- empty decl at the end.
   8 };
   9
  10