Skip to content

Commit 529c747

Browse files
ThoriumThorium
committed
mandatory Fantomas commit
1 parent da72f22 commit 529c747

10 files changed

Lines changed: 54 additions & 139 deletions

‎src/AssemblyInfo.Csv.Core.fs‎

Lines changed: 5 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,5 @@
11
// Auto-Generated by FAKE; do not edit
22
namespace System
3-
43
open System.Reflection
54

65
[<assembly: AssemblyTitleAttribute("FSharp.Data.Csv.Core")>]
@@ -11,17 +10,8 @@ open System.Reflection
1110
do ()
1211

1312
module internal AssemblyVersionInformation =
14-
[<Literal>]
15-
let AssemblyTitle = "FSharp.Data.Csv.Core"
16-
17-
[<Literal>]
18-
let AssemblyProduct = "FSharp.Data"
19-
20-
[<Literal>]
21-
let AssemblyDescription = "Library of F# type providers and data access tools"
22-
23-
[<Literal>]
24-
let AssemblyVersion = "6.6.0.0"
25-
26-
[<Literal>]
27-
let AssemblyFileVersion = "6.6.0.0"
13+
let [<Literal>] AssemblyTitle = "FSharp.Data.Csv.Core"
14+
let [<Literal>] AssemblyProduct = "FSharp.Data"
15+
let [<Literal>] AssemblyDescription = "Library of F# type providers and data access tools"
16+
let [<Literal>] AssemblyVersion = "6.6.0.0"
17+
let [<Literal>] AssemblyFileVersion = "6.6.0.0"

‎src/AssemblyInfo.DesignTime.fs‎

Lines changed: 5 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,5 @@
11
// Auto-Generated by FAKE; do not edit
22
namespace System
3-
43
open System.Reflection
54

65
[<assembly: AssemblyTitleAttribute("FSharp.Data.DesignTime")>]
@@ -11,17 +10,8 @@ open System.Reflection
1110
do ()
1211

1312
module internal AssemblyVersionInformation =
14-
[<Literal>]
15-
let AssemblyTitle = "FSharp.Data.DesignTime"
16-
17-
[<Literal>]
18-
let AssemblyProduct = "FSharp.Data"
19-
20-
[<Literal>]
21-
let AssemblyDescription = "Library of F# type providers and data access tools"
22-
23-
[<Literal>]
24-
let AssemblyVersion = "6.6.0.0"
25-
26-
[<Literal>]
27-
let AssemblyFileVersion = "6.6.0.0"
13+
let [<Literal>] AssemblyTitle = "FSharp.Data.DesignTime"
14+
let [<Literal>] AssemblyProduct = "FSharp.Data"
15+
let [<Literal>] AssemblyDescription = "Library of F# type providers and data access tools"
16+
let [<Literal>] AssemblyVersion = "6.6.0.0"
17+
let [<Literal>] AssemblyFileVersion = "6.6.0.0"

‎src/AssemblyInfo.Html.Core.fs‎

Lines changed: 5 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,5 @@
11
// Auto-Generated by FAKE; do not edit
22
namespace System
3-
43
open System.Reflection
54

65
[<assembly: AssemblyTitleAttribute("FSharp.Data.Html.Core")>]
@@ -11,17 +10,8 @@ open System.Reflection
1110
do ()
1211

1312
module internal AssemblyVersionInformation =
14-
[<Literal>]
15-
let AssemblyTitle = "FSharp.Data.Html.Core"
16-
17-
[<Literal>]
18-
let AssemblyProduct = "FSharp.Data"
19-
20-
[<Literal>]
21-
let AssemblyDescription = "Library of F# type providers and data access tools"
22-
23-
[<Literal>]
24-
let AssemblyVersion = "6.6.0.0"
25-
26-
[<Literal>]
27-
let AssemblyFileVersion = "6.6.0.0"
13+
let [<Literal>] AssemblyTitle = "FSharp.Data.Html.Core"
14+
let [<Literal>] AssemblyProduct = "FSharp.Data"
15+
let [<Literal>] AssemblyDescription = "Library of F# type providers and data access tools"
16+
let [<Literal>] AssemblyVersion = "6.6.0.0"
17+
let [<Literal>] AssemblyFileVersion = "6.6.0.0"

‎src/AssemblyInfo.Http.fs‎

Lines changed: 5 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,5 @@
11
// Auto-Generated by FAKE; do not edit
22
namespace System
3-
43
open System.Reflection
54

65
[<assembly: AssemblyTitleAttribute("FSharp.Data.Http")>]
@@ -11,17 +10,8 @@ open System.Reflection
1110
do ()
1211

1312
module internal AssemblyVersionInformation =
14-
[<Literal>]
15-
let AssemblyTitle = "FSharp.Data.Http"
16-
17-
[<Literal>]
18-
let AssemblyProduct = "FSharp.Data"
19-
20-
[<Literal>]
21-
let AssemblyDescription = "Library of F# type providers and data access tools"
22-
23-
[<Literal>]
24-
let AssemblyVersion = "6.6.0.0"
25-
26-
[<Literal>]
27-
let AssemblyFileVersion = "6.6.0.0"
13+
let [<Literal>] AssemblyTitle = "FSharp.Data.Http"
14+
let [<Literal>] AssemblyProduct = "FSharp.Data"
15+
let [<Literal>] AssemblyDescription = "Library of F# type providers and data access tools"
16+
let [<Literal>] AssemblyVersion = "6.6.0.0"
17+
let [<Literal>] AssemblyFileVersion = "6.6.0.0"

‎src/AssemblyInfo.Json.Core.fs‎

Lines changed: 5 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,5 @@
11
// Auto-Generated by FAKE; do not edit
22
namespace System
3-
43
open System.Reflection
54

65
[<assembly: AssemblyTitleAttribute("FSharp.Data.Json.Core")>]
@@ -11,17 +10,8 @@ open System.Reflection
1110
do ()
1211

1312
module internal AssemblyVersionInformation =
14-
[<Literal>]
15-
let AssemblyTitle = "FSharp.Data.Json.Core"
16-
17-
[<Literal>]
18-
let AssemblyProduct = "FSharp.Data"
19-
20-
[<Literal>]
21-
let AssemblyDescription = "Library of F# type providers and data access tools"
22-
23-
[<Literal>]
24-
let AssemblyVersion = "6.6.0.0"
25-
26-
[<Literal>]
27-
let AssemblyFileVersion = "6.6.0.0"
13+
let [<Literal>] AssemblyTitle = "FSharp.Data.Json.Core"
14+
let [<Literal>] AssemblyProduct = "FSharp.Data"
15+
let [<Literal>] AssemblyDescription = "Library of F# type providers and data access tools"
16+
let [<Literal>] AssemblyVersion = "6.6.0.0"
17+
let [<Literal>] AssemblyFileVersion = "6.6.0.0"

‎src/AssemblyInfo.Runtime.Utilities.fs‎

Lines changed: 5 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,5 @@
11
// Auto-Generated by FAKE; do not edit
22
namespace System
3-
43
open System.Reflection
54

65
[<assembly: AssemblyTitleAttribute("FSharp.Data.Runtime.Utilities")>]
@@ -11,17 +10,8 @@ open System.Reflection
1110
do ()
1211

1312
module internal AssemblyVersionInformation =
14-
[<Literal>]
15-
let AssemblyTitle = "FSharp.Data.Runtime.Utilities"
16-
17-
[<Literal>]
18-
let AssemblyProduct = "FSharp.Data"
19-
20-
[<Literal>]
21-
let AssemblyDescription = "Library of F# type providers and data access tools"
22-
23-
[<Literal>]
24-
let AssemblyVersion = "6.6.0.0"
25-
26-
[<Literal>]
27-
let AssemblyFileVersion = "6.6.0.0"
13+
let [<Literal>] AssemblyTitle = "FSharp.Data.Runtime.Utilities"
14+
let [<Literal>] AssemblyProduct = "FSharp.Data"
15+
let [<Literal>] AssemblyDescription = "Library of F# type providers and data access tools"
16+
let [<Literal>] AssemblyVersion = "6.6.0.0"
17+
let [<Literal>] AssemblyFileVersion = "6.6.0.0"

‎src/AssemblyInfo.WorldBank.Core.fs‎

Lines changed: 5 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,5 @@
11
// Auto-Generated by FAKE; do not edit
22
namespace System
3-
43
open System.Reflection
54

65
[<assembly: AssemblyTitleAttribute("FSharp.Data.WorldBank.Core")>]
@@ -11,17 +10,8 @@ open System.Reflection
1110
do ()
1211

1312
module internal AssemblyVersionInformation =
14-
[<Literal>]
15-
let AssemblyTitle = "FSharp.Data.WorldBank.Core"
16-
17-
[<Literal>]
18-
let AssemblyProduct = "FSharp.Data"
19-
20-
[<Literal>]
21-
let AssemblyDescription = "Library of F# type providers and data access tools"
22-
23-
[<Literal>]
24-
let AssemblyVersion = "6.6.0.0"
25-
26-
[<Literal>]
27-
let AssemblyFileVersion = "6.6.0.0"
13+
let [<Literal>] AssemblyTitle = "FSharp.Data.WorldBank.Core"
14+
let [<Literal>] AssemblyProduct = "FSharp.Data"
15+
let [<Literal>] AssemblyDescription = "Library of F# type providers and data access tools"
16+
let [<Literal>] AssemblyVersion = "6.6.0.0"
17+
let [<Literal>] AssemblyFileVersion = "6.6.0.0"

‎src/AssemblyInfo.Xml.Core.fs‎

Lines changed: 5 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,5 @@
11
// Auto-Generated by FAKE; do not edit
22
namespace System
3-
43
open System.Reflection
54

65
[<assembly: AssemblyTitleAttribute("FSharp.Data.Xml.Core")>]
@@ -11,17 +10,8 @@ open System.Reflection
1110
do ()
1211

1312
module internal AssemblyVersionInformation =
14-
[<Literal>]
15-
let AssemblyTitle = "FSharp.Data.Xml.Core"
16-
17-
[<Literal>]
18-
let AssemblyProduct = "FSharp.Data"
19-
20-
[<Literal>]
21-
let AssemblyDescription = "Library of F# type providers and data access tools"
22-
23-
[<Literal>]
24-
let AssemblyVersion = "6.6.0.0"
25-
26-
[<Literal>]
27-
let AssemblyFileVersion = "6.6.0.0"
13+
let [<Literal>] AssemblyTitle = "FSharp.Data.Xml.Core"
14+
let [<Literal>] AssemblyProduct = "FSharp.Data"
15+
let [<Literal>] AssemblyDescription = "Library of F# type providers and data access tools"
16+
let [<Literal>] AssemblyVersion = "6.6.0.0"
17+
let [<Literal>] AssemblyFileVersion = "6.6.0.0"

‎src/AssemblyInfo.fs‎

Lines changed: 5 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,5 @@
11
// Auto-Generated by FAKE; do not edit
22
namespace System
3-
43
open System.Reflection
54

65
[<assembly: AssemblyTitleAttribute("FSharp.Data")>]
@@ -11,17 +10,8 @@ open System.Reflection
1110
do ()
1211

1312
module internal AssemblyVersionInformation =
14-
[<Literal>]
15-
let AssemblyTitle = "FSharp.Data"
16-
17-
[<Literal>]
18-
let AssemblyProduct = "FSharp.Data"
19-
20-
[<Literal>]
21-
let AssemblyDescription = "Library of F# type providers and data access tools"
22-
23-
[<Literal>]
24-
let AssemblyVersion = "6.6.0.0"
25-
26-
[<Literal>]
27-
let AssemblyFileVersion = "6.6.0.0"
13+
let [<Literal>] AssemblyTitle = "FSharp.Data"
14+
let [<Literal>] AssemblyProduct = "FSharp.Data"
15+
let [<Literal>] AssemblyDescription = "Library of F# type providers and data access tools"
16+
let [<Literal>] AssemblyVersion = "6.6.0.0"
17+
let [<Literal>] AssemblyFileVersion = "6.6.0.0"

‎src/FSharp.Data.Xml.Core/XmlRuntime.fs‎

Lines changed: 9 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -58,11 +58,13 @@ type XmlElement =
5858
static member Create(reader: TextReader) =
5959
use reader = reader
6060
// Secure XML parsing: disable DTD processing and external entities to prevent XXE attacks
61-
let xmlReaderSettings =
61+
let xmlReaderSettings =
6262
new XmlReaderSettings(
6363
DtdProcessing = DtdProcessing.Prohibit,
6464
XmlResolver = null,
65-
MaxCharactersFromEntities = 1024L * 1024L) // 1MB limit
65+
MaxCharactersFromEntities = 1024L * 1024L
66+
) // 1MB limit
67+
6668
use xmlReader = XmlReader.Create(reader, xmlReaderSettings)
6769
let element = XDocument.Load(xmlReader, LoadOptions.PreserveWhitespace).Root
6870
{ XElement = element }
@@ -78,21 +80,24 @@ type XmlElement =
7880
let text = reader.ReadToEnd()
7981

8082
// Secure XML parsing: disable DTD processing and external entities to prevent XXE attacks
81-
let xmlReaderSettings =
83+
let xmlReaderSettings =
8284
new XmlReaderSettings(
8385
DtdProcessing = DtdProcessing.Prohibit,
8486
XmlResolver = null,
85-
MaxCharactersFromEntities = 1024L * 1024L) // 1MB limit
87+
MaxCharactersFromEntities = 1024L * 1024L
88+
) // 1MB limit
8689

8790
try
8891
use stringReader = new StringReader(text)
8992
use xmlReader = XmlReader.Create(stringReader, xmlReaderSettings)
93+
9094
XDocument.Load(xmlReader, LoadOptions.PreserveWhitespace).Root.Elements()
9195
|> Seq.map (fun value -> { XElement = value })
9296
|> Seq.toArray
9397
with _ when text.TrimStart().StartsWith "<" ->
9498
use stringReader = new StringReader("<root>" + text + "</root>")
9599
use xmlReader = XmlReader.Create(stringReader, xmlReaderSettings)
100+
96101
XDocument.Load(xmlReader, LoadOptions.PreserveWhitespace).Root.Elements()
97102
|> Seq.map (fun value -> { XElement = value })
98103
|> Seq.toArray

0 commit comments

Comments
 (0)