Anonymous records from variant not respecting @as decorator

[cwstra]

Tried out all these examples in the playground, w/ rc.8:

If we have a variant type with an aliased property:

type union =
  Member({
    @as("annoyinglyLongName") shortName: string
  })

we can successfully generate a binding to this property via a function:

let shortName = (Member({shortName})) => shortName

function shortName(param) {
  return param.annoyinglyLongName;
}

Huzzah!

However, if instead we grab the inner record, and access the property off that, the name mapping fails to kick in.

let shortName' = (Member(r)) => r.shortName

function accessRec$p(r) {
  return r.shortName;
}

[tsnobip]

oh that's a good catch.

Repro with v11-rc.8 here

Kind of a duplicate of #6438, unfortunately #6456 seems to only fix for the first case, not your second function.

[tsnobip]

fixed by #6551