ghc/tests/deSugar/should_compile/ds041.hs

   1 {- In 2.05 this one crashed with
   2
   3         Fail: "basicTypes/Id.lhs", line 990: incomplete pattern(s)
   4                 to match in function "dataConFieldLabels"
   5
   6    Reason: dsExpr (RecordCon ...) didn't extract
   7            the constructor properly.
   8 -}
   9
  10 module Bug where
  11
  12 data Eq a => Foo a = Foo { x :: a }
  13
  14 foo :: Eq a => Foo a
  15 foo = Foo{}
  16