Uncurried mode: error message claims incorrect required number of args in function with optional args

[glennsl]

Repro:

let f = (~a=0, b, c) => a + b + c
let x = f(42)

yields:

This uncurried function has type (~a: int=?, int, int) => int
  It is applied with 1 arguments but it requires 3.

There's only 2 required arguments in this function. The third is optional.

[github-actions]

This issue has been automatically marked as stale because it has not had recent activity. It will be closed if no further activity occurs. Thank you for your contributions.

[glennsl]

Still an issue