记录字段上的自定义属性 F#

Question

我正在尝试在记录中声明自定义属性并尝试读取它。 它似乎不起作用。 请指教。

// Custom Attribute for record fields
[<AttributeUsage(AttributeTargets.Field)>]
type Name(x: string) =
    inherit Attribute()
    member _.value = x

// Record type
type User =
    { [<Name("id")>]
      Id: int
      [<Name("email")>]
      Email: string
      [<Name("organization_id")>]
      OrganizationId: option<string> }

// Trying to read the attribute. This is not working. I am getting <null> here.
let parse () =
    FSharpType.GetRecordFields(typeof<User>)
    |> Array.map (fun p -> p.Name, p.GetCustomAttribute(typeof<Name>, false))
    |> Array.iter (fun (t, a) -> printfn "%s : %A" t a)

Answer 1

下面的代码解决了这个问题。 有关更详细的答案，请参阅此链接。

// Changing to property instead of field
[<AttributeUsage(AttributeTargets.Property)>]
type Name(x: string) =
    inherit Attribute()
    member _.value = x