Formatted Star Wars sample code

Author: xperiandri

samples/star-wars-api/MultipartRequest.fs

@@ -12,15 +12,16 @@ open FSharp.Data.GraphQL.Ast
 
 [<Struct>]
 type GraphQLMultipartSection =
-    | Form of Form: FormMultipartSection
-    | File of File: FileMultipartSection
-    static member FromSection(section : MultipartSection) =
+    | Form of Form : FormMultipartSection
+    | File of File : FileMultipartSection
+
+    static member FromSection (section : MultipartSection) =
         match section with
         | null -> ValueNone
         | _ ->
-            match section.AsFormDataSection() with
+            match section.AsFormDataSection () with
             | null ->
-                match section.AsFileSection() with
+                match section.AsFileSection () with
                 | null -> ValueNone
                 | x -> ValueSome (File x)
             | x -> ValueSome (Form x)
@@ -33,14 +34,21 @@ type GraphQLMultipartSection =
 /// <remarks> For more information, see https://github.com/jaydenseric/graphql-multipart-request-spec. </remarks>
 [<Struct>]
 type MultipartRequest =
-      /// Contains the list of operations of this request.
-      /// If the request is not batched, then the single operation will be inside this list as a singleton.
-    { Operations : GQLRequestContent list }
+    /// Contains the list of operations of this request.
+    /// If the request is not batched, then the single operation will be inside this list as a singleton.
+    {
+        Operations : GQLRequestContent list
+    }
 
 /// Contains tools for working with GraphQL multipart requests.
 module MultipartRequest =
 
-    let private parseOperations (jsonOptions: JsonSerializerOptions) (operations: GQLRequestContent list) (map : IDictionary<string, string>) (files : IDictionary<string, File>) =
+    let private parseOperations
+        (jsonOptions : JsonSerializerOptions)
+        (operations : GQLRequestContent list)
+        (map : IDictionary<string, string>)
+        (files : IDictionary<string, File>)
+        =
 
         let mapOperation (operationIndex : int voption) (operation : GQLRequestContent) =
             let findFile (varName : string) (varValue : JsonElement) = seq {
@@ -50,8 +58,9 @@ module MultipartRequest =
                         | (true, v) -> Some v
                         | _ -> None)
                     |> Seq.map (fun key ->
-                        key |> Option.map (fun key ->
-                            match files.TryGetValue(key) with
+                        key
+                        |> Option.map (fun key ->
+                            match files.TryGetValue (key) with
                             | (true, v) -> Some v
                             | _ -> None)
                         |> Option.flatten)
@@ -66,40 +75,47 @@ module MultipartRequest =
                         |> Seq.choose (fun kvp -> if kvp.Key = varName then Some files.[kvp.Value] else None)
                         |> List.ofSeq
                     match found with
-                    | [x] -> Some x
+                    | [ x ] -> Some x
                     | _ -> None
                 let pickSingleFileFromMap varName =
                     map
                     |> Seq.choose (fun kvp -> if kvp.Key = varName then Some files.[kvp.Value] else None)
                     |> Seq.exactlyOne
-                let pickFileRequestFromMap (request : UploadRequest) varName : UploadRequest =
-                    { Single = pickSingleFileFromMap $"%s{varName}.single"
-                      Multiple = pickMultipleFilesFromMap request.Multiple.Length $"%s{varName}.multiple"
-                      NullableMultiple = request.NullableMultiple |> Option.map (fun x -> pickMultipleFilesFromMap x.Length $"%s{varName}.nullableMultiple")
-                      NullableMultipleNullable = request.NullableMultipleNullable |> Option.map (fun x -> tryPickMultipleFilesFromMap x.Length $"%s{varName}.nullableMultipleNullable") }
+                let pickFileRequestFromMap (request : UploadRequest) varName : UploadRequest = {
+                    Single = pickSingleFileFromMap $"%s{varName}.single"
+                    Multiple = pickMultipleFilesFromMap request.Multiple.Length $"%s{varName}.multiple"
+                    NullableMultiple =
+                        request.NullableMultiple
+                        |> Option.map (fun x -> pickMultipleFilesFromMap x.Length $"%s{varName}.nullableMultiple")
+                    NullableMultipleNullable =
+                        request.NullableMultipleNullable
+                        |> Option.map (fun x -> tryPickMultipleFilesFromMap x.Length $"%s{varName}.nullableMultipleNullable")
+                }
                 let rec isUpload (t : InputType) =
                     match t with
                     | NamedType tname -> tname = "Upload" || tname = "UploadRequest"
-                    | ListType t | NonNullType t -> isUpload t
+                    | ListType t
+                    | NonNullType t -> isUpload t
                 let ast = Parser.parse operation.Query
                 let varDefs =
                     ast.Definitions
-                    |> List.choose (function OperationDefinition def -> Some def.VariableDefinitions | _ -> None)
+                    |> List.choose (function
+                        | OperationDefinition def -> Some def.VariableDefinitions
+                        | _ -> None)
                     |> List.collect id
                 let varDef = varDefs |> List.find (fun x -> x.VariableName = varName)
-                if isUpload varDef.Type
-                then
+                if isUpload varDef.Type then
                     match varValue.ValueKind with
                     | JsonValueKind.Object ->
-                        let request = varValue.Deserialize<UploadRequest>(jsonOptions)
+                        let request = varValue.Deserialize<UploadRequest> (jsonOptions)
                         let varName =
                             match operationIndex with
                             | ValueSome operationIndex -> $"%i{operationIndex}.variables.%s{varName}"
                             | ValueNone -> $"variables.%s{varName}"
                         yield pickFileRequestFromMap request varName
                     | JsonValueKind.Array ->
                         let files =
-                            varValue.EnumerateArray()
+                            varValue.EnumerateArray ()
                             |> Seq.mapi (fun valueIndex _ ->
                                 let varName =
                                     match operationIndex with
@@ -117,49 +133,58 @@ module MultipartRequest =
                         | Some File -> yield file
                         | None -> ()
             }
-            { operation with Variables = operation.Variables |> Skippable.map (Map.map (fun k v -> findFile k v)) }
+            {
+                operation with
+                    Variables =
+                        operation.Variables
+                        |> Skippable.map (Map.map (fun k v -> findFile k v))
+            }
 
         match operations with
         | [ operation ] -> [ mapOperation ValueNone operation ]
-        | operations -> operations |> List.mapi (fun ix operation -> mapOperation (ValueSome ix) operation)
+        | operations ->
+            operations
+            |> List.mapi (fun ix operation -> mapOperation (ValueSome ix) operation)
 
     /// Reads a GraphQL multipart request from a MultipartReader.
-    let read (jsonOptions: JsonSerializerOptions) cancellationToken (reader : MultipartReader) =
-        task {
-            let mutable section : GraphQLMultipartSection voption = ValueNone
-            let readNextSection () =
-                task {
-                    let! next = reader.ReadNextSectionAsync cancellationToken
-                    section <- GraphQLMultipartSection.FromSection(next)
+    let read (jsonOptions : JsonSerializerOptions) cancellationToken (reader : MultipartReader) = task {
+        let mutable section : GraphQLMultipartSection voption = ValueNone
+        let readNextSection () = task {
+            let! next = reader.ReadNextSectionAsync cancellationToken
+            section <- GraphQLMultipartSection.FromSection (next)
+        }
+        let mutable operations : string = null
+        let mutable map : IDictionary<string, string> = null
+        let files = Dictionary<string, File> ()
+        do! readNextSection ()
+        while not section.IsNone do
+            match section.Value with
+            | Form section ->
+                let! value = section.GetValueAsync ()
+                match section.Name with
+                | "operations" -> operations <- value
+                | "map" ->
+                    map <-
+                        JsonSerializer.Deserialize<Map<string, string list>> (value, jsonOptions)
+                        |> Seq.map (fun kvp -> kvp.Value.Head, kvp.Key)
+                        |> Map.ofSeq
+                | _ -> failwithf $"""Error reading multipart request. Unexpected section name "%s{section.Name}"."""
+            | File section ->
+                let stream = new System.IO.MemoryStream (4096)
+                do! section.FileStream.CopyToAsync (stream, cancellationToken)
+                stream.Position <- 0L
+                let value = {
+                    Name = section.FileName
+                    ContentType = section.Section.ContentType
+                    Content = stream
                 }
-            let mutable operations : string = null
-            let mutable map : IDictionary<string, string> = null
-            let files = Dictionary<string, File>()
+                files.Add (section.Name, value)
             do! readNextSection ()
-            while not section.IsNone do
-                match section.Value with
-                | Form section ->
-                    let! value = section.GetValueAsync()
-                    match section.Name with
-                    | "operations" ->
-                        operations <- value
-                    | "map" ->
-                        map <- JsonSerializer.Deserialize<Map<string, string list>>(value, jsonOptions)
-                               |> Seq.map (fun kvp -> kvp.Value.Head, kvp.Key)
-                               |> Map.ofSeq
-                    | _ -> failwithf $"""Error reading multipart request. Unexpected section name "%s{section.Name}"."""
-                | File section ->
-                    let stream = new System.IO.MemoryStream(4096)
-                    do! section.FileStream.CopyToAsync(stream, cancellationToken)
-                    stream.Position <- 0L
-                    let value = { Name = section.FileName; ContentType = section.Section.ContentType; Content = stream }
-                    files.Add(section.Name, value)
-                do! readNextSection ()
-            let operations =
-                let jsonElement = (JsonDocument.Parse operations).RootElement
-                match jsonElement.ValueKind with
-                | JsonValueKind.Array -> jsonElement.Deserialize<GQLRequestContent list>(jsonOptions)
-                | JsonValueKind.Object -> [ jsonElement.Deserialize<GQLRequestContent>(jsonOptions) ]
-                | _ -> failwith "Unexpected operations value."
-            return { Operations = parseOperations jsonOptions operations map files }
-        }
+        let operations =
+            let jsonElement = (JsonDocument.Parse operations).RootElement
+            match jsonElement.ValueKind with
+            | JsonValueKind.Array -> jsonElement.Deserialize<GQLRequestContent list> (jsonOptions)
+            | JsonValueKind.Object -> [ jsonElement.Deserialize<GQLRequestContent> (jsonOptions) ]
+            | _ -> failwith "Unexpected operations value."
+        return { Operations = parseOperations jsonOptions operations map files }
+    }

samples/star-wars-api/Policies.fs

@@ -9,7 +9,8 @@ module Policies =
     let [<Literal>] Dummy = "Dummy"
     let [<Literal>] CanSetMoon = "CanSetMoon"
 
-type DummyRequirement () = interface IAuthorizationRequirement
+type DummyRequirement () =
+    interface IAuthorizationRequirement
 
 type DummyHandler () =
 
@@ -28,11 +29,14 @@ type IsCharacterHandler () =
     inherit AuthorizationHandler<IsCharacterRequirement> () // Inject services from DI
 
     override _.HandleRequirementAsync (context, requirement) =
-        Async.StartImmediateAsTask(async {
+        Async.StartImmediateAsTask (async {
             let allowedCharacters = requirement.Characters
-            if context.User.Claims
+            if
+                context.User.Claims
                 |> Seq.where (fun c -> c.Type = "character")
                 |> Seq.exists (fun c -> allowedCharacters |> Set.contains c.Value)
-            then context.Succeed requirement
-            else () // Go to the next handler if registered
+            then
+                context.Succeed requirement
+            else
+                () // Go to the next handler if registered
         }) :> _

samples/star-wars-api/Program.fs

@@ -6,7 +6,7 @@ open Microsoft.Extensions.Configuration
 
 let exitCode = 0
 
-let buildWebHost (args: string array) =
+let buildWebHost (args : string array) =
 
     // Build an initial configuration that takes in both environment and command line settings.
     let config = ConfigurationBuilder()
@@ -16,18 +16,18 @@ let buildWebHost (args: string array) =
 
     // This is done so that an environment specified on the command line with "--environment" is respected,
     // when we look for appsettings.*.json files.
-    let configureAppConfiguration (context: WebHostBuilderContext) (config: IConfigurationBuilder) =
+    let configureAppConfiguration (context : WebHostBuilderContext) (config : IConfigurationBuilder) =
 
         // The default IFileProvider has the working directory set to the same as the DLL.
         // We'll use this to re-set the FileProvider in the configuration builder below.
-        let fileProvider = ConfigurationBuilder().GetFileProvider()
+        let fileProvider = ConfigurationBuilder().GetFileProvider ()
 
         // Extract the environment name from the configuration that was already built above
         let envName = context.HostingEnvironment.EnvironmentName
         // Use the name to find the additional appsettings file, if present.
         config.SetFileProvider(fileProvider)
-                .AddJsonFile("appsettings.json", false, true)
-                .AddJsonFile($"appsettings.{envName}.json", true) |> ignore
+            .AddJsonFile("appsettings.json", false, true)
+            .AddJsonFile($"appsettings.{envName}.json", true) |> ignore
 
     WebHost
         .CreateDefaultBuilder(args)
@@ -37,5 +37,5 @@ let buildWebHost (args: string array) =
 
 [<EntryPoint>]
 let main args =
-    buildWebHost(args).Build().Run()
+    buildWebHost(args).Build().Run ()
     exitCode

samples/star-wars-api/Root.fs

@@ -4,9 +4,9 @@ open System
 open Microsoft.AspNetCore.Http
 open Microsoft.Extensions.DependencyInjection
 
-type Root(ctx : HttpContext) =
+type Root (ctx : HttpContext) =
 
     member _.RequestId = ctx.TraceIdentifier
-    member _.RequestAborted: System.Threading.CancellationToken = ctx.RequestAborted
-    member _.ServiceProvider: IServiceProvider = ctx.RequestServices
-    member root.GetRequiredService<'t>() = root.ServiceProvider.GetRequiredService<'t>()
+    member _.RequestAborted : System.Threading.CancellationToken = ctx.RequestAborted
+    member _.ServiceProvider : IServiceProvider = ctx.RequestServices
+    member root.GetRequiredService<'t> () = root.ServiceProvider.GetRequiredService<'t> ()