|
{-# LANGUAGE DatatypeContexts #-}
|
|
data
|
|
( LooooooooooooooooooooongConstraint a
|
|
, LooooooooooooooooooooongConstraint b
|
|
) =>
|
|
MyRecord a b
|
|
= MyConstructor
|
|
{ foo1, foo2
|
|
:: loooooooooooooooooooooooooooooooong
|
|
-> loooooooooooooooooooooooooooooooong
|
|
, bar :: a
|
|
, bazz :: b
|
|
}
|