testsuite/tests/simplCore/should_compile/T4138_A.hs


1
2
3
4
5
6
7
8
9
10
11


module T4138_A where

class NFData a where
    rnf :: a -> ()
    rnf a = a `seq` ()

instance NFData Float

instance (NFData a, NFData b) => NFData (a,b) where
    rnf (x,y) = rnf x `seq` rnf y