Weird formatting of case expressions in lists

[expipiplus1]

-- Weird placement of 'of' in line with the list commas
foo = bar
  [ case
    foooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
  of
    () -> ()
  , ()
  ]

-- Doesn't occur if this is a singleton list
foo = bar
  [ case
      foooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
    of
      () -> ()
  ]

-- Doesn't occur if this list is not an argument to a function ('bar' above)
foo =
  [ case
      foooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
    of
      () -> ()
  , ()
  ]

[tfausak]

Seems related to #232.