AI review fixes

Author: xperiandri

src/FSharp.Data.GraphQL.Server.Middleware/ObjectListFilter.fs

@@ -7,6 +7,7 @@ open System.Text.Json
 /// A filter definition for a field value.
 type FieldFilter<'Val> = { FieldName : string; Value : 'Val }
 
+/// <summary>
 /// A filter definition for an object list.
 /// </summary>
 /// <remarks>

src/FSharp.Data.GraphQL.Server.Middleware/ObjectListFilterModule.fs

@@ -246,11 +246,11 @@ module ObjectListFilter =
             | NonEnumerableCast ``type`` -> Expression.LessThanOrEqual ((unsafeConvertTo ``type`` ``member``), Expression.Constant f.Value)
         | StartsWith (f, comparer) ->
             let ``member`` = Expression.PropertyOrField (param, f.FieldName)
-            let comparison = comparerToStringComparison comparer |> ValueOption.defaultValue StringComparison.Ordinal
+            let comparison = comparerToStringComparison comparer |> ValueOption.defaultValue StringComparison.CurrentCulture
             Expression.Call (normalizeStringMemberExpr ``member``, StringStartsWithMethod, Expression.Constant f.Value, Expression.Constant comparison)
         | EndsWith (f, comparer) ->
             let ``member`` = Expression.PropertyOrField (param, f.FieldName)
-            let comparison = comparerToStringComparison comparer |> ValueOption.defaultValue StringComparison.Ordinal
+            let comparison = comparerToStringComparison comparer |> ValueOption.defaultValue StringComparison.CurrentCulture
             Expression.Call (normalizeStringMemberExpr ``member``, StringEndsWithMethod, Expression.Constant f.Value, Expression.Constant comparison)
 
         | Contains (f, comparer) ->
@@ -289,7 +289,7 @@ module ObjectListFilter =
             | :? FieldInfo as field when field.FieldType |> isEnumerable -> callContains field.FieldType
             | _ ->
                 let unwrappedValue = Helpers.unwrap f.Value
-                let comparison = comparerToStringComparison comparer |> ValueOption.defaultValue StringComparison.Ordinal
+                let comparison = comparerToStringComparison comparer |> ValueOption.defaultValue StringComparison.CurrentCulture
                 Expression.Call (normalizeStringMemberExpr ``member``, StringContainsMethod, Expression.Constant (unwrappedValue :?> string, stringType), Expression.Constant comparison)
         | In f when not (f.Value.IsEmpty) ->
             let ``member`` = Expression.PropertyOrField (param, f.FieldName)
@@ -404,4 +404,4 @@ module ObjectListFilterExtensions =
         /// </code>
         /// </example>
         member inline query.Apply (filter : ObjectListFilter, [<Optional>] options : ObjectListFilterLinqOptions<'T, 'D> | null) =
-            apply options filter query
+            filter.ApplyTo (query, options)

src/FSharp.Data.GraphQL.Server.Middleware/TypeCoercion.fs

@@ -174,7 +174,8 @@ module TypeCoercion =
                 let unwrapped = unwrapOption prop.PropertyType
                 match tryCoerceValue jsonOptions unwrapped (box ff.Value) with
                 | ValueNone -> filter
-                | ValueSome coerced -> Equals ({ ff with Value = coerced :?> IComparable }, cmp)
+                | ValueSome (:? IComparable as coerced) -> Equals ({ ff with Value = coerced }, cmp)
+                | ValueSome _ -> filter
         | GreaterThan ff
         | GreaterThanOrEqual ff
         | LessThan ff
@@ -185,14 +186,15 @@ module TypeCoercion =
                 let unwrapped = unwrapOption prop.PropertyType
                 match tryCoerceValue jsonOptions unwrapped (box ff.Value) with
                 | ValueNone -> filter
-                | ValueSome coerced ->
-                    let coercedField = { ff with Value = coerced :?> IComparable }
+                | ValueSome (:? IComparable as coerced) ->
+                    let coercedField = { ff with Value = coerced }
                     match originalFilter with
                     | GreaterThan _ -> GreaterThan coercedField
                     | GreaterThanOrEqual _ -> GreaterThanOrEqual coercedField
                     | LessThan _ -> LessThan coercedField
                     | LessThanOrEqual _ -> LessThanOrEqual coercedField
                     | _ -> filter
+                | ValueSome _ -> filter
         | In ff ->
             match entityType.GetProperty (stripOperatorSuffix ff.FieldName, propertyBindFlags) with
             | null -> filter
@@ -224,7 +226,8 @@ module TypeCoercion =
                     | ValueNone -> stringType
                 match tryCoerceValue jsonOptions coercionTarget (box ff.Value) with
                 | ValueNone -> filter
-                | ValueSome coerced -> Contains ({ ff with Value = coerced :?> IComparable }, cmp)
+                | ValueSome (:? IComparable as coerced) -> Contains ({ ff with Value = coerced }, cmp)
+                | ValueSome _ -> filter
         | FilterField ff ->
             match entityType.GetProperty (ff.FieldName, propertyBindFlags) with
             | null -> filter