fsharp_xml.fs

open System.Xml.Linq

let xn n = XName.Get(n, "http://schemas.microsoft.com/developer/msbuild/2003")
let xattrn n = XName.Get(n) 
let xelem name (x:XElement) = x.Element(xn name)
let xattr name (x:XElement) = 
    x.Attribute(xattrn name).Value  

let load (proj : XElement) =        

        let references = proj.Descendants(xn "DefinedReference")

        { 
            References =
              references 
                |> Seq.map (fun x -> 
                    { 
                        Id = x |> xattr "Id";
                        Assembly = x |> xattr "Assembly" 
                    })               
                |> Seq.toList    
        }