case indentation when in a larger block

[sohumb@…]

optional k m = case m of
  Nothing  -> k
  (Just j) -> j

indents as above, where I'd expect

optional k m = case m of
                 Nothing  -> k
                 (Just j) -> j

or similar.