ghc/tests/reader/should_compile/read014.hs

   1 -- !!! Empty export lists are legal (and useful.)
   2 module ShouldCompile () where
   3
   4 ng1 x y = negate y
   5
   6 instance (Num a, Num b) => Num (a,b)
   7   where
   8    negate (a,b) = (ng 'c' a, ng1 'c' b)   where  ng x y = negate y