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


1
2
3
4
5
6
7
8

-- !!! Empty export lists are legal (and useful.)
module ShouldCompile () where

ng1 x y = negate y

instance (Num a, Num b) => Num (a,b)
  where
   negate (a,b) = (ng 'c' a, ng1 'c' b)   where  ng x y = negate y