Merge pull request #331 from jberzy/ws-cleanup

whitespace cleanup

Author: jberzy

main.yml

@@ -718,7 +718,7 @@ module internal Provider =
                             | IntrospectionFile path ->
                                 System.IO.File.ReadAllText path
                         let schema = Serialization.deserializeSchema schemaJson
-                       
+
                         let schemaProvidedTypes = getSchemaProvidedTypes(schema, uploadInputTypeName, explicitOptionalParameters)
                         let typeWrapper = ProvidedTypeDefinition("Types", None, isSealed = true)
                         typeWrapper.AddMembers(schemaProvidedTypes |> Seq.map (fun kvp -> kvp.Value) |> List.ofSeq)

src/FSharp.Data.GraphQL.Client.DesignTime/ProvidedTypesHelper.fs

@@ -13,7 +13,7 @@ open System.Security.Cryptography
 module internal Extensions =
     type String with
         /// Returns the input string with the first character in upper case.
-        member this.FirstCharUpper() = 
+        member this.FirstCharUpper() =
             this.Substring(0, 1).ToUpperInvariant() + this.Substring(1)
 
         /// Returns the input string with the first character in lower case.

src/FSharp.Data.GraphQL.Client/Extensions.fs

@@ -59,23 +59,23 @@ module GraphQLClient =
     let sendRequestAsync (connection : GraphQLClientConnection) (request : GraphQLRequest) =
         async {
             let invoker = connection.Invoker
-            let variables = 
+            let variables =
                 match request.Variables with
                 | null | [||] -> JsonValue.Null
                 | _ -> Map.ofArray request.Variables |> Serialization.toJsonValue
             let operationName =
                 match request.OperationName with
                 | Some x -> JsonValue.String x
                 | None -> JsonValue.Null
-            let requestJson =         
+            let requestJson =
                 [| "operationName", operationName
                    "query", JsonValue.String request.Query
                    "variables", variables |]
                 |> JsonValue.Record
             let content = new StringContent(requestJson.ToString(), Encoding.UTF8, "application/json")
             return! postAsync invoker request.ServerUrl request.HttpHeaders content
         }
-    
+
     /// Sends a request to a GraphQL server.
     let sendRequest client request =
         sendRequestAsync client request
@@ -108,7 +108,7 @@ module GraphQLClient =
         }
 
     /// Executes an introspection schema request to a GraphQL server.
-    let sendIntrospectionRequest client serverUrl httpHeaders = 
+    let sendIntrospectionRequest client serverUrl httpHeaders =
         sendIntrospectionRequestAsync client serverUrl httpHeaders
         |> Async.RunSynchronously
 
@@ -118,25 +118,25 @@ module GraphQLClient =
             let invoker = connection.Invoker
             let boundary = "----GraphQLProviderBoundary" + (Guid.NewGuid().ToString("N"))
             let content = new MultipartContent("form-data", boundary)
-            let files = 
+            let files =
                 let rec tryMapFileVariable (name: string, value : obj) =
                     match value with
                     | null | :? string -> None
                     | :? Upload as x -> Some [|name, x|]
-                    | OptionValue x -> 
+                    | OptionValue x ->
                         x |> Option.bind (fun x -> tryMapFileVariable (name, x))
                     | :? IDictionary<string, obj> as x ->
                         x |> Seq.collect (fun kvp -> tryMapFileVariable (name + "." + (kvp.Key.FirstCharLower()), kvp.Value) |> Option.defaultValue [||])
                           |> Array.ofSeq
                           |> Some
-                    | EnumerableValue x -> 
+                    | EnumerableValue x ->
                         x |> Array.mapi (fun ix x -> tryMapFileVariable (name + "." + (ix.ToString()), x))
                           |> Array.collect (Option.defaultValue [||])
                           |> Some
                     | _ -> None
                 request.Variables |> Array.collect (tryMapFileVariable >> (Option.defaultValue [||]))
-            let operationContent = 
-                let variables = 
+            let operationContent =
+                let variables =
                     match request.Variables with
                     | null | [||] -> JsonValue.Null
                     | _ -> request.Variables |> Map.ofArray |> Serialization.toJsonValue

src/FSharp.Data.GraphQL.Client/GraphQLClient.fs

@@ -29,6 +29,6 @@ type GraphQLClientConnection(invoker : HttpMessageInvoker, ownsInvoker : bool) =
 
     /// The System.Net.Http.HttpMessageInvoker used by this connection.
     member __.Invoker = invoker
-    
+
     interface IDisposable with
         member __.Dispose() = if ownsInvoker then invoker.Dispose()

src/FSharp.Data.GraphQL.Client/GraphQLClientConnection.fs

@@ -15,7 +15,7 @@ type GraphQLProviderRuntimeContext =
       /// Gets the URL of the server that this context refers to.
     { ServerUrl : string
       /// Gets the HTTP headers used for calls to the server that this context refers to.
-      HttpHeaders : seq<string * string> 
+      HttpHeaders : seq<string * string>
       /// Gets the connection component used to make calls to the server.
       Connection : GraphQLClientConnection }
     interface IDisposable with

src/FSharp.Data.GraphQL.Client/GraphQLProviderRuntimeContext.fs

@@ -38,7 +38,7 @@ type JsonValue =
   | Record of properties:(string * JsonValue)[]
   | Array of elements:JsonValue[]
   | Boolean of bool
-  | Null  
+  | Null
 
   ///  <exclude />
   [<EditorBrowsableAttribute(EditorBrowsableState.Never)>]
@@ -70,11 +70,11 @@ type JsonValue =
           JsonValue.JsonStringEncodeTo w s
           w.Write "\""
       | Record properties ->
-          w.Write "{"                      
+          w.Write "{"
           for i = 0 to properties.Length - 1 do
             let k,v = properties.[i]
             if i > 0 then w.Write ","
-            newLine indentation 2            
+            newLine indentation 2
             w.Write "\""
             JsonValue.JsonStringEncodeTo w k
             w.Write propSep
@@ -90,17 +90,17 @@ type JsonValue =
           if elements.Length > 0 then
             newLine indentation 0
           w.Write "]"
-    serialize 0 x 
+    serialize 0 x
 
   static member internal JsonStringEncodeTo (w:TextWriter) (value:string) =
     if String.IsNullOrEmpty value then ()
-    else 
+    else
       for i = 0 to value.Length - 1 do
         let c = value.[i]
         let ci = int c
         if ci >= 0 && ci <= 7 || ci = 11 || ci >= 14 && ci <= 31 then
           w.Write("\\u{0:x4}", ci) |> ignore
-        else 
+        else
           match c with
           | '\b' -> w.Write "\\b"
           | '\t' -> w.Write "\\t"
@@ -133,7 +133,7 @@ type private JsonParser(jsonText:string) =
     let throw() =
       let msg =
         sprintf
-          "Invalid JSON starting at character %d, snippet = \n----\n%s\n-----\njson = \n------\n%s\n-------" 
+          "Invalid JSON starting at character %d, snippet = \n----\n%s\n-----\njson = \n------\n%s\n-------"
           i (jsonText.[(max 0 (i-10))..(min (jsonText.Length-1) (i+10))]) (if jsonText.Length > 1000 then jsonText.Substring(0, 1000) else jsonText)
       failwith msg
     let ensure cond =
@@ -194,7 +194,7 @@ type private JsonParser(jsonText:string) =
                     let unicodeChar (s:string) =
                         if s.Length <> 8 then failwith "unicodeChar";
                         if s.[0..1] <> "00" then failwith "unicodeChar";
-                        UnicodeHelper.getUnicodeSurrogatePair <| System.UInt32.Parse(s, NumberStyles.HexNumber) 
+                        UnicodeHelper.getUnicodeSurrogatePair <| System.UInt32.Parse(s, NumberStyles.HexNumber)
                     let lead, trail = unicodeChar (s.Substring(i+2, 8))
                     buf.Append(lead) |> ignore
                     buf.Append(trail) |> ignore

src/FSharp.Data.GraphQL.Client/JsonValue.fs

@@ -21,7 +21,7 @@ type StringLocation =
     /// <param name="folderPath">An optional folder path. Provide it when the value parameter is a file without its path.</param>
     static member Create(value : string, ?folderPath : string) =
         try
-            let file = 
+            let file =
                 match folderPath with
                 | Some folderPath -> System.IO.Path.Combine(folderPath, value)
                 | None -> value
@@ -50,7 +50,7 @@ type IntrospectionLocation =
             | (true, _) -> Uri value
             | _ -> failwithf "Could not determine location of introspection. The introspection should be a valid GraphQL server URL, or a introspection JSON file on the path of the project or script."
         try
-            let file = 
+            let file =
                 match folderPath with
                 | Some folderPath -> System.IO.Path.Combine(folderPath, value)
                 | None -> value

src/FSharp.Data.GraphQL.Client/Locations.fs

@@ -41,7 +41,7 @@ let private dictBuilder() : IReadOnlyDictionary<string, string> =
             ".air", "application/vnd.adobe.air-application-installer-package+zip"
             ".amc", "application/mpeg"
             ".anx", "application/annodex"
-            ".apk", "application/vnd.android.package-archive" 
+            ".apk", "application/vnd.android.package-archive"
             ".application", "application/x-ms-application"
             ".art", "image/x-jg"
             ".asa", "application/xml"
@@ -130,7 +130,7 @@ let private dictBuilder() : IReadOnlyDictionary<string, string> =
             ".dwf", "drawing/x-dwf"
             ".dwg", "application/acad"
             ".dwp", "application/octet-stream"
-            ".dxf", "application/x-dxf" 
+            ".dxf", "application/x-dxf"
             ".dxr", "application/x-director"
             ".eml", "message/rfc822"
             ".emz", "application/octet-stream"
@@ -413,7 +413,7 @@ let private dictBuilder() : IReadOnlyDictionary<string, string> =
             ".rqy", "text/x-ms-rqy"
             ".rtf", "application/rtf"
             ".rtx", "text/richtext"
-            ".rvt", "application/octet-stream" 
+            ".rvt", "application/octet-stream"
             ".ruleset", "application/xml"
             ".s", "text/plain"
             ".safariextz", "application/x-safari-safariextz"
@@ -435,7 +435,7 @@ let private dictBuilder() : IReadOnlyDictionary<string, string> =
             ".sit", "application/x-stuffit"
             ".sitemap", "application/xml"
             ".skin", "application/xml"
-            ".skp", "application/x-koan" 
+            ".skp", "application/x-koan"
             ".sldm", "application/vnd.ms-powerpoint.slide.macroEnabled.12"
             ".sldx", "application/vnd.openxmlformats-officedocument.presentationml.slide"
             ".slk", "application/vnd.ms-excel"
@@ -593,7 +593,7 @@ let private dictBuilder() : IReadOnlyDictionary<string, string> =
             ".xltx", "application/vnd.openxmlformats-officedocument.spreadsheetml.template"
             ".xlw", "application/vnd.ms-excel"
             ".xml", "text/xml"
-            ".xmp", "application/octet-stream" 
+            ".xmp", "application/octet-stream"
             ".xmta", "application/xml"
             ".xof", "x-world/x-vrml"
             ".XOML", "text/plain"

src/FSharp.Data.GraphQL.Client/MimeTypes.fs

@@ -21,7 +21,7 @@ module ReflectionPatterns =
            typeof<byte>
            typeof<sbyte> |]
 
-    let isOption (t : Type) = 
+    let isOption (t : Type) =
         t.IsGenericType && t.GetGenericTypeDefinition() = typedefof<_ option>
 
     let isMap (t : Type) =