[ghc-hetmet.git] / ghc / tests / programs / barton-mangler-bug / Bug.hs

module Bug where

data Eq a => Foo a = Foo { x :: a }

foo :: Foo Int
foo = Foo{}