open FSharp.Data

[<Literal>]
let customersXmlSample = """
  <Customers>
    <Customer name="ACME">
      <Order Number="A012345">
        <OrderLine Item="widget" Quantity="1"/>
      </Order>
      <Order Number="A012346">
        <OrderLine Item="trinket" Quantity="2"/>
      </Order>
    </Customer>
    <Customer name="Southwind">
      <Order Number="A012347">
        <OrderLine Item="skyhook" Quantity="3"/>
        <OrderLine Item="gizmo" Quantity="4"/>
      </Order>
    </Customer>
  </Customers>"""

type InputXml = XmlProvider<customersXmlSample>

let orderLines (xml : string) =
    let xml = InputXml.Parse xml

    let withyolo =
        [|
            yield
                InputXml.Customer("yolo",
                    [| InputXml.Order("2312", [| InputXml.OrderLine("asd",10) |])  |])

            yield! xml.Customers
        |]

    let withYolo = InputXml.Customers(withyolo)
    withYolo

[<EntryPoint>]
let main argv =
    let withyoloe = orderLines customersXmlSample
    printfn "%A" withyoloe
    0 // return an integer exit code