format

Author: zth

src/ml/GenerateSchema.ml

@@ -98,8 +98,9 @@ let rec findGraphQLType ~(env : SharedTypes.QueryEnv.t)
   if isSubscription then (
     let isAsyncIterablePath path =
       match pathIdentToList path |> List.rev with
-      | "t" :: ("AsyncIterator" | "AsyncIterable" | "Stdlib__AsyncIterator"
-               | "Stdlib__AsyncIterable")
+      | "t"
+        :: ( "AsyncIterator" | "AsyncIterable" | "Stdlib__AsyncIterator"
+           | "Stdlib__AsyncIterable" )
         :: _ ->
         true
       | _ -> false
@@ -110,9 +111,9 @@ let rec findGraphQLType ~(env : SharedTypes.QueryEnv.t)
            ~diagnostic:
              {
                loc =
-                   (match loc with
-                   | None -> Location.in_file (env.file.moduleName ^ ".res")
-                   | Some loc -> loc);
+                 (match loc with
+                 | None -> Location.in_file (env.file.moduleName ^ ".res")
+                 | Some loc -> loc);
                fileUri = env.file.uri;
                message =
                  Printf.sprintf
@@ -1158,7 +1159,9 @@ and traverseStructure ?(modulePath = []) ?implStructure ?originModule
     structure.items
     |> List.iter (fun (item : SharedTypes.Module.item) ->
         let attributes = item.attributes in
-        let gqlAttribute = attributes |> extractGqlAttribute ~schemaState ~env in
+        let gqlAttribute =
+          attributes |> extractGqlAttribute ~schemaState ~env
+        in
         match (item.kind, gqlAttribute) with
         | Module {type_ = Structure structure; _}, _ ->
           (* Continue into modules (ignore module aliases etc) *)

src/ml/GenerateSchemaUtils.ml

@@ -254,8 +254,8 @@ let uncapitalizeFirstChar s =
   if String.length s = 0 then s
   else String.mapi (fun i c -> if i = 0 then Char.lowercase_ascii c else c) s
 
-let noticeObjectType ~env ~loc ~schemaState ~displayName ?syntheticTypeLocation ?description
-    ?(ignoreTypeLocation = false) ~makeFields typeName =
+let noticeObjectType ~env ~loc ~schemaState ~displayName ?syntheticTypeLocation
+    ?description ?(ignoreTypeLocation = false) ~makeFields typeName =
   if Hashtbl.mem schemaState.types typeName then ()
   else
     (*Printf.printf "noticing %s\n" typeName;*)
@@ -602,7 +602,7 @@ let processSchema (schemaState : schemaState) =
       | Some typeLocation -> (
         let fileUri =
           (match typeLocation with
-          | Synthetic {fileUri} | Concrete {fileUri} -> fileUri)
+            | Synthetic {fileUri} | Concrete {fileUri} -> fileUri)
           |> Uri.toPath
         in
         match Hashtbl.find_opt positionsToRead fileUri with