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