Unnecessary line break before list comprehension

foo =
  let r =
          [ m | m <- foooooooooooooooooooooooooooooooooooooooooooooooooooooooo ]
  in  ()

The break between r = and [ m is a little odd here.

This happens also without a single very long word

foo =
  let r =
          [ m
          | m <- foooooooooooooooooooo
          , fooooooooooooooooooooooooooo
          , fooooooooooooooooooooooooooo
          ]
  in  ()

I suspect the same problems show up with regular lists as well.