Wie erstellt man ein XML-Attribut (anstelle eines Elements) mit FSharp?

Question

ich eine Anforderung haben XML zu erstellen, die wie folgt aussieht:

<record id="100000000000000000" type="Message"> 
    ...a bunch of xml ... 
</record> 

stattdessen mit dem FSsharp Code, erhalte ich diese Ich verwende:

<record> 
    <type>Message</type> 
    <id>118448</id> 
    ...a bunch of xml.... 
</record> 

hier ist, was ich bin zur Zeit tun:

type record(id:int, sr:sender, recipients: recipient array, atts : attachment array, con : conversation, madeDate : creation) = 
    let mutable id: int = id 
    let mutable typ = "Message" 
    let mutable creation = madeDate 
    let mutable sender = sr 
    let mutable recipients = recipients 
    let mutable conversation = con 
    let mutable attachments = atts 

    public new() = 
     record(-1, sender(-1,"Joe","Plumber","Joe@plumber.com"), Array.empty, Array.empty, conversation(), creation())  

    [<XmlElement("type")>] 
    member this.Type with get() = typ and set v = typ <- v 

    [<XmlElementAttribute("id")>] 
    member this.Id with get() = id and set v = id <- v 

    [<XmlElement("creation")>] 
    member this.Creation with get() = creation and set v = creation <- v 

    [<XmlElement("sender")>] 
    member this.Sender with get() = sender and set v = sender <- v 

    [<XmlArrayAttribute("recipients")>] 
    [<XmlArrayItem(typeof<recipient>, ElementName = "recipient")>] 
    member this.Recipients with get() = recipients and set v = recipients <- v 

    [<XmlElement("conversation_info")>] 
    member this.Conversation with get() = conversation and set v = conversation <- v 

    [<XmlArrayAttribute("attachments")>]   
    [<XmlArrayItem(typeof<attachment>, ElementName = "attachment")>] 
    member this.Attachments with get() = attachments and set v = attachments <- v 

Answer 1

ich glaube, Sie wollen XmlAttributeAttribute statt XmlElementAttribute.

Beachten Sie, dass

[<XmlElement>] 

und

[<XmlElementAttribute>] 

die gleiche Sache sind (wie C#).