ghc/tests/codeGen/should_run/cg039.hs

   1 --! From a Rick Morgan bug report:
   2 --! Single-method class with a locally-polymorphic
   3 --! method.
   4
   5 module Main where
   6
   7 class Poly a where
   8    poly :: a -> b -> b
   9
  10 instance Poly [a] where
  11    poly [] y = y
  12    poly x  y = y
  13
  14 main = print ("hurrah" `poly` "Hello, world!\n")