1 2 3 4 5 6 7 8
{-# LANGUAGE Strict #-} module Foo where data Foo = Foo instance Eq Foo where (==) Foo Foo = True