data MyRecord = MyConstructor { bar1, bar2 :: Loooooooooooooooooooooooooooooooong -> Loooooooooooooooooooooooooooooooong , foo1, foo2 :: Loooooooooooooooooooooooooooooooonger -> Loooooooooooooooooooooooooooooooonger }