-- NOTE: The tests run with `-XLambdaCase`.
-- If that option is not preserved, parsing here will fail.
foo = \case
  1 -> id
  _ -> (const 0)