Fantomas formatting

Author: Thorium

src/FSharp.Data.Csv.Core/CsvRuntime.fs

@@ -69,13 +69,14 @@ module internal CsvReader =
             | Char '\r'
             | Char '\n' -> readLines lineNumber
             | current ->
-                let r1 = 
+                let r1 =
                     readLine [] (StringBuilder()) current
                     |> List.rev
                     |> Array.ofList,
                     lineNumber
 
                 let r2 = readLines (lineNumber + 1)
+
                 seq {
                     yield r1
                     yield! r2

src/FSharp.Data.Html.Core/HtmlParser.fs

@@ -19,12 +19,18 @@ module private TextParser =
     [<return: Struct>]
     let (|EndOfFile|_|) (c: char) =
         let value = c |> int
-        if (value = -1 || value = 65535) then ValueSome c else ValueNone
+
+        if (value = -1 || value = 65535) then
+            ValueSome c
+        else
+            ValueNone
 
     [<return: Struct>]
     let (|Whitespace|_|) = toPattern Char.IsWhiteSpace
+
     [<return: Struct>]
     let (|LetterDigit|_|) = toPattern Char.IsLetterOrDigit
+
     [<return: Struct>]
     let (|Letter|_|) = toPattern Char.IsLetter
 

src/FSharp.Data.Runtime.Utilities/NameUtils.fs

@@ -54,6 +54,7 @@ let nicePascalName (s: string) =
             | _ ->
                 let r1 = struct (from, i)
                 let r2 = restart (i + 1)
+
                 seq {
                     yield r1
                     yield! r2
@@ -66,13 +67,15 @@ let nicePascalName (s: string) =
             | true, Lower _ ->
                 let r1 = struct (from, (i - 1))
                 let r2 = restart (i - 1)
+
                 seq {
                     yield r1
                     yield! r2
                 }
             | _ ->
                 let r1 = struct (from, i)
                 let r2 = restart i
+
                 seq {
                     yield r1
                     yield! r2