Mongo property binder

gistfile1.fs

open Microsoft.FSharp.Quotations
open Microsoft.FSharp.Quotations.Patterns
open Microsoft.FSharp.Quotations.DerivedPatterns

let prop (expr:Quotations.Expr) =
    match expr with
    | Lambda(_, PropertyGet(_, prop, _)) -> 
        match prop.GetCustomAttributes(typeof<BsonElementAttribute>, true) with
        | [| attr |] -> (attr :?> BsonElementAttribute).ElementName
        | _ -> prop.Name
    | _ -> failwith "Expected: <@ fun x -> x.Property @>"


type Record = {
    [<BsonElement("f")>]Foo: string
    Bar: string
}

prop <@ fun x -> x.Foo @>
prop <@ fun x -> x.Bar @>