Merge pull request #491 from fsprojects/missing_parameters

Added missing `deprecationReason` parameter to `AsyncField` member

Author: xperiandri

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

@@ -30,8 +30,8 @@ type GQLMessageExceptionBase (errorKind, msg, [<Optional>] extensions) =
             |> GQLProblemDetails.SetErrorKind errorKind
             |> ValueSome
 
-type GQLMessageException (msg) =
-    inherit GQLMessageExceptionBase (Execution, msg)
+type GQLMessageException (msg, [<Optional>] extensions) =
+    inherit GQLMessageExceptionBase (Execution, msg, extensions)
 
 type InvalidInputTypeException (msg, unmatchedOptionalFields) =
     inherit GQLMessageExceptionBase (InputCoercion, msg)

src/FSharp.Data.GraphQL.Shared/SchemaDefinitions.fs

@@ -908,14 +908,16 @@ module SchemaDefinitions =
         /// <param name="name">Field name. Must be unique in scope of the defining object.</param>
         /// <param name="typedef">GraphQL type definition of the current field's type.</param>
         /// <param name="resolve">Expression used to resolve value from defining object.</param>
+        /// <param name="deprecationReason">Deprecation reason.</param>
         static member AsyncField(name : string, typedef : #OutputDef<'Res>,
-                                 [<ReflectedDefinition(true)>] resolve : Expr<ResolveFieldContext -> 'Val -> Async<'Res>>) : FieldDef<'Val> =
+                                 [<ReflectedDefinition(true)>] resolve : Expr<ResolveFieldContext -> 'Val -> Async<'Res>>,
+                                 ?deprecationReason : string) : FieldDef<'Val> =
             upcast { FieldDefinition.Name = name
                      Description = None
                      TypeDef = typedef
                      Resolve = Async(typeof<'Val>, typeof<'Res>, resolve)
                      Args = [||]
-                     DeprecationReason = None
+                     DeprecationReason = deprecationReason
                      Metadata = Metadata.Empty }
 
         /// <summary>
@@ -925,33 +927,35 @@ module SchemaDefinitions =
         /// <param name="typedef">GraphQL type definition of the current field's type.</param>
         /// <param name="description">Optional field description. Usefull for generating documentation.</param>
         /// <param name="resolve">Expression used to resolve value from defining object.</param>
+        /// <param name="deprecationReason">Deprecation reason.</param>
         static member AsyncField(name : string, typedef : #OutputDef<'Res>, description : string,
-                                 [<ReflectedDefinition(true)>] resolve : Expr<ResolveFieldContext -> 'Val -> Async<'Res>>) : FieldDef<'Val> =
+                                 [<ReflectedDefinition(true)>] resolve : Expr<ResolveFieldContext -> 'Val -> Async<'Res>>,
+                                 ?deprecationReason : string) : FieldDef<'Val> =
             upcast { FieldDefinition.Name = name
                      Description = Some description
                      TypeDef = typedef
                      Resolve = Async(typeof<'Val>, typeof<'Res>, resolve)
                      Args = [||]
-                     DeprecationReason = None
+                     DeprecationReason = deprecationReason
                      Metadata = Metadata.Empty }
 
         /// <summary>
         /// Creates field defined inside object type with asynchronously resolved value.
         /// </summary>
         /// <param name="name">Field name. Must be unique in scope of the defining object.</param>
         /// <param name="typedef">GraphQL type definition of the current field's type.</param>
-        /// <param name="description">Optional field description. Usefull for generating documentation.</param>
         /// <param name="args">List of field arguments used to parametrize resolve expression output.</param>
         /// <param name="resolve">Expression used to resolve value from defining object.</param>
-        static member AsyncField(name : string, typedef : #OutputDef<'Res>, description : string,
-                                 args : InputFieldDef list,
-                                 [<ReflectedDefinition(true)>] resolve : Expr<ResolveFieldContext -> 'Val -> Async<'Res>>) : FieldDef<'Val> =
+        /// <param name="deprecationReason">Deprecation reason.</param>
+        static member AsyncField(name : string, typedef : #OutputDef<'Res>, args : InputFieldDef list,
+                                 [<ReflectedDefinition(true)>] resolve : Expr<ResolveFieldContext -> 'Val -> Async<'Res>>,
+                                 ?deprecationReason : string) : FieldDef<'Val> =
             upcast { FieldDefinition.Name = name
-                     Description = Some description
+                     Description = None
                      TypeDef = typedef
                      Resolve = Async(typeof<'Val>, typeof<'Res>, resolve)
                      Args = args |> List.toArray
-                     DeprecationReason = None
+                     DeprecationReason = deprecationReason
                      Metadata = Metadata.Empty }
 
         /// <summary>
@@ -966,13 +970,13 @@ module SchemaDefinitions =
         static member AsyncField(name : string, typedef : #OutputDef<'Res>, description : string,
                                  args : InputFieldDef list,
                                  [<ReflectedDefinition(true)>] resolve : Expr<ResolveFieldContext -> 'Val -> Async<'Res>>,
-                                 deprecationReason : string) : FieldDef<'Val> =
+                                 ?deprecationReason : string) : FieldDef<'Val> =
             upcast { FieldDefinition.Name = name
                      Description = Some description
                      TypeDef = typedef
                      Resolve = Async(typeof<'Val>, typeof<'Res>, resolve)
                      Args = args |> List.toArray
-                     DeprecationReason = Some deprecationReason
+                     DeprecationReason = deprecationReason
                      Metadata = Metadata.Empty }
 
         /// <summary>