Indentation bug with choice operator?

[amosnier]

Indentation bug with choice operator?

The produced indentation looks incorrect in an example with the choice operator.

• I checked the issue tracker for existing issues about this problem.
• I'm using the latest version of hindent.

Input haskell

int :: Parser Int
int =
  do char '-'
     n <- nat
     return (-n)
   <|> nat

Expected output haskell

int :: Parser Int
int =
  do char '-'
     n <- nat
     return (-n)
   <|> nat

Actual output haskell

int :: Parser Int
int =
  do char '-'
     n <- nat
     return (-n)
     <|> nat

See also bug-in-hindent-5-3-4-with-haskell-choice-operator.