testsuite/tests/ghc-regress/parser/should_compile/read019.hs


1
2
3
4
5
6
7
8
9
10

-- !!! Checking what's legal in the body of a class declaration.
module ShouldCompile where

class Foo a where {
  (--<>--) :: a -> a -> Int  ;
  infixl 5 --<>-- ;
  (--<>--) _ _ = 2 ; -- empty decl at the end.
};