Migrated to underscore property access lambda syntax

Author: xperiandri

samples/relay-book-store/Schema.fs

@@ -159,14 +159,14 @@ let booksField =
             let startCursor = async {
                 let! edges = edges
 
-                return edges |> Seq.tryHead |> Option.map (fun x -> x.Cursor)
+                return edges |> Seq.tryHead |> Option.map _.Cursor
             }
 
             // The cursor of the last edge
             let endCursor = async {
                 let! edges = edges
 
-                return edges |> Seq.tryLast |> Option.map (fun x -> x.Cursor)
+                return edges |> Seq.tryLast |> Option.map _.Cursor
             }
 
             {

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

@@ -26,8 +26,8 @@ type GraphQLTypeProvider (config) as this =
         if args.Name.Contains("FSharp.Data.GraphQL") then
             printfn "ResolveAssembly: %s" args.Name
             config.ReferencedAssemblies
-            |> Array.filter(fun x -> x.Contains("FSharp.Data"))
-            |> Array.iter (fun x ->  printfn "%s" x)
+            |> Array.filter _.Contains("FSharp.Data")
+            |> Array.iter (fun x -> printfn "%s" x)
         base.ResolveAssembly args
 
 [<assembly:TypeProviderAssembly>]

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

@@ -184,7 +184,7 @@ module internal ProvidedRecord =
                     |> List.partition (fun (_, t) -> isOption t)
                 if explicitOptionalParameters then
                     let constructorProperties = requiredProperties @ optionalProperties
-                    let propertyNames = constructorProperties |> List.map (fst >> (fun x -> x.FirstCharUpper()))
+                    let propertyNames = constructorProperties |> List.map (fst >> _.FirstCharUpper())
                     let constructorPropertyTypes = constructorProperties |> List.map snd
                     let invoker (args : Expr list) =
                         let properties =
@@ -208,7 +208,7 @@ module internal ProvidedRecord =
                     List.combinations optionalProperties
                     |> List.map (fun (optionalProperties, nullValuedProperties) ->
                         let constructorProperties = requiredProperties @ optionalProperties
-                        let propertyNames = (constructorProperties @ nullValuedProperties) |> List.map (fst >> (fun x -> x.FirstCharUpper()))
+                        let propertyNames = (constructorProperties @ nullValuedProperties) |> List.map (fst >> _.FirstCharUpper())
                         let constructorPropertyTypes = constructorProperties |> List.map snd
                         let nullValuedPropertyTypes = nullValuedProperties |> List.map snd
                         let invoker (args : Expr list) =
@@ -554,7 +554,7 @@ module internal Provider =
                             | TypeField _ -> Some x
                             | FragmentField f when f.TypeCondition = tref.Name.Value -> Some x
                             | _ -> None)
-                        |> List.distinctBy (fun x -> x.AliasOrName)
+                        |> List.distinctBy _.AliasOrName
                         |> List.map (getPropertyMetadata tref.Name.Value)
                     let baseType =
                         let metadata : ProvidedTypeMetadata = { Name = tref.Name.Value; Description = tref.Description }

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

@@ -104,7 +104,7 @@ type RecordBase (name : string, properties : RecordProperty seq) =
 
     let properties =
         if not (isNull properties)
-        then properties |> Seq.sortBy (fun x -> x.Name) |> List.ofSeq
+        then properties |> Seq.sortBy _.Name |> List.ofSeq
         else []
 
     /// Gets the name of this provided record type.

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

@@ -23,7 +23,7 @@ module internal Extensions =
         member this.MD5Hash() =
             Encoding.UTF8.GetBytes(this)
             |> MD5.Create().ComputeHash
-            |> Array.map (fun x -> x.ToString("x2"))
+            |> Array.map _.ToString("x2")
             |> Array.reduce (+)
 
 /// Basic operations on lists.

src/FSharp.Data.GraphQL.Server/Execution.fs

@@ -336,7 +336,7 @@ and private live (inputContext : InputExecutionContextProvider) (ctx : ResolveFi
         |> Observable.mergeInner
 
     let provider = ctx.Schema.LiveFieldSubscriptionProvider
-    let filter = provider.TryFind typeName name |> Option.map (fun x -> x.Filter)
+    let filter = provider.TryFind typeName name |> Option.map _.Filter
     let updates =
         match filter with
         | Some filterFn -> provider.Add (filterFn parent) typeName name |> Observable.bind resolveUpdate

src/FSharp.Data.GraphQL.Server/Executor.fs

@@ -170,7 +170,7 @@ type Executor<'Root>(schema: ISchema<'Root>, middlewares : IExecutorMiddleware s
                       Metadata = meta
                       Operation = operation
                       DocumentId = documentId }
-                return runMiddlewares (fun x -> x.PlanOperation) planningCtx planOperation
+                return runMiddlewares _.PlanOperation planningCtx planOperation
             | None -> return! Error <| [ GQLProblemDetails.CreateWithKind (
                 "No operation with specified name has been found for provided document",
                 ErrorKind.Validation

src/FSharp.Data.GraphQL.Server/Values.fs

@@ -105,7 +105,7 @@ let rec internal compileByType
     | InputCustom customDef -> fun inputContext value variables -> customDef.CoerceInput inputContext (InlineConstant value) variables
     | InputObject objDef ->
         let objType = objDef.Type
-        let ctor = ReflectionHelper.matchConstructor objType (objDef.Fields |> Array.map (fun x -> x.Name))
+        let ctor = ReflectionHelper.matchConstructor objType (objDef.Fields |> Array.map _.Name)
 
         let parametersMap =
             let typeMismatchParameters = HashSet ()

tests/FSharp.Data.GraphQL.IntegrationTests/SwapiRemoteProviderTests.fs

@@ -174,7 +174,7 @@ module FileOperation =
              Operation.Types.HeroFields.FriendsFields.EdgesFields.NodeFields.Human(name = "Leia Organa", homePlanet = "Alderaan")
              Operation.Types.HeroFields.FriendsFields.EdgesFields.NodeFields.Droid(name = "C-3PO", primaryFunction = "Protocol")
              Operation.Types.HeroFields.FriendsFields.EdgesFields.NodeFields.Droid(name = "R2-D2", primaryFunction = "Astromech") |]
-        let friends = result.Data.Value.Hero.Value.Friends.Edges |> Array.map (fun x -> x.Node)
+        let friends = result.Data.Value.Hero.Value.Friends.Edges |> Array.map _.Node
         friends |> equals expectedFriends
         result.Data.Value.Hero.Value.HomePlanet |> equals (Some "Tatooine")
         let actual = normalize <| sprintf "%A" result.Data

tests/FSharp.Data.GraphQL.Tests/DeferredTests.fs

@@ -247,7 +247,7 @@ let sub =
     { FieldName = "live"
       TypeName = "Data"
       Filter = (fun (x : TestSubject) (y : TestSubject) -> x.id = y.id)
-      Project = (fun x -> x.live) }
+      Project = _.live }
 
 schemaConfig.LiveFieldSubscriptionProvider.Register sub