Incosistent newline between operator and do keyword

[cblp]

a =
  ( b &~ do
      c
      d
  )

is ok, but

a =
  ( &~
      do
        c
        d
  )

is ugly and inconsistent with previous.

Context: I love to use endofunctions for optional arguments pattern, and State lenses in combination with (&~ do...) syntax are perfect means to write them. Extra line really bothers me.