Fixed crash and added more descriptive exception message

Author: xperiandri

samples/star-wars-api/AuthorizationMiddleware.fs

@@ -49,8 +49,13 @@ type internal CustomPolicyFieldDefinition<'Val, 'Res> (source : FieldDef<'Val, '
                                 ((%%expr : ResolveFieldContext -> 'Val -> 'Res) ctx input)
                                 |> async.Return)
                     @>
-                let compiledResolver = LeafExpressionConverter.EvaluateQuotation resolver
-                Expr.WithValue (compiledResolver, resolver.Type, resolver)
+                try
+                    let compiledResolver = LeafExpressionConverter.EvaluateQuotation resolver
+                    Expr.WithValue (compiledResolver, resolver.Type, resolver)
+                with :? NotSupportedException as ex ->
+                    let message =
+                        $"F# compiler cannot convert '{source.Name}' field resolver expression to LINQ, use function instead"
+                    raise (NotSupportedException (message, ex))
 
             match source.Resolve with
             | Sync (input, output, expr) -> Async (input, output, changeSyncResolver expr)
@@ -87,9 +92,10 @@ module TypeSystemExtensions =
             |> Seq.where (fun r -> not r.Succeeded)
             |> Seq.collect (fun r -> r.Failure.FailedRequirements)
 
-        if Seq.isEmpty requirements
-        then return Ok ()
-        else return Error "Forbidden"
+        if Seq.isEmpty requirements then
+            return Ok ()
+        else
+            return Error "Forbidden"
     }
 
     [<Literal>]

samples/star-wars-api/Schema.fs

@@ -277,8 +277,8 @@ module Schema =
                 let setMoon (ctx : ResolveFieldContext) (_ : Root) = option {
                     let! planet = getPlanet (ctx.Arg ("id"))
                     ignore (planet.SetMoon (Some (ctx.Arg ("isMoon"))))
-                    schemaConfig.SubscriptionProvider.Publish<Planet> "watchMoon" planet
-                    schemaConfig.LiveFieldSubscriptionProvider.Publish<Planet> "Planet" "isMoon" planet
+                    ctx.Schema.SubscriptionProvider.Publish<Planet> "watchMoon" planet
+                    ctx.Schema.LiveFieldSubscriptionProvider.Publish<Planet> "Planet" "isMoon" planet
                     return planet
                 }
                 Define.Field(
@@ -290,9 +290,9 @@ module Schema =
                     // Using complex lambda crashes
                     //(fun ctx _ -> option {
                     //    let! planet = getPlanet (ctx.Arg ("id"))
-                    //    ignore (planet.SetMoon (Some (ctx.Arg ("isMoon"))))
-                    //    schemaConfig.SubscriptionProvider.Publish<Planet> "watchMoon" planet
-                    //    schemaConfig.LiveFieldSubscriptionProvider.Publish<Planet> "Planet" "isMoon" planet
+                    //    let planet = planet.SetMoon (Some (ctx.Arg ("isMoon")))
+                    //    ctx.Schema.SubscriptionProvider.Publish<Planet> "watchMoon" planet
+                    //    ctx.Schema.LiveFieldSubscriptionProvider.Publish<Planet> "Planet" "isMoon" planet
                     //    return planet
                     //})
                 ).WithAuthorizationPolicies(Policies.CanSetMoon)