testsuite/tests/codeGen/should_run/cgrun039.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

-- !!! From a Rick Morgan bug report:
-- !!! Single-method class with a locally-polymorphic
-- !!! method.

module Main where

class Poly a where
   poly :: a -> b -> b

instance Poly [a] where
   poly [] y = y
   poly x  y = y

main = print ("hurrah" `poly` "Hello, world!\n")