path: root/testsuite/tests/ghc-regress/programs/barton-mangler-bug/Bug.hs

module Bug where

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

foo :: Foo Int
foo = Foo{}