Skip to content

Instantly share code, notes, and snippets.

@iwasdavid
Last active March 6, 2019 11:26
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save iwasdavid/2b65c4259c284a3c910266c2f5a1e308 to your computer and use it in GitHub Desktop.
Save iwasdavid/2b65c4259c284a3c910266c2f5a1e308 to your computer and use it in GitHub Desktop.
sample.xsd
<Content>
<Blah>adasd</Blah>
<Stuff>asdadas</Stuff>
<Thing>asdasd</Thing>
<Other>asdadas</Other>
</Content>
<Content>
<Blah>adasd</Blah>
<Stuff>asdadas</Stuff>
<Other>asdadas</Other>
</Content>
<Content>
<Blah>adasd</Blah>
</Content>
<Content>
<Blah>adasd</Blah>
<Blah>adasd</Blah>
<Blah>adasd</Blah>
<Other>asdadas</Other>
</Content>
<?xml version="1.0" encoding="utf-8"?>
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:element name="Content">
<xs:complexType>
<xs:sequence>
<xs:any minOccurs="0" maxOccurs="unbounded" processContents="skip" />
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:schema>
module XmlParserTest
open FSharp.Data
open System.Xml.Linq
type Example = XmlProvider<Schema="./sample.xsd">
let content = XElement(XName.Get "SomeTag", "Text")
let getXml () = Example.Content(content)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment