move function to Utils module

Author: aspeddro

analysis/src/SemanticTokens.ml

@@ -311,9 +311,7 @@ let command ~debug ~emitter ~path =
       cases
       |> List.filter_map (fun ((label : Longident.t Location.loc), _) ->
              match label.txt with
-             | Longident.Lident s
-               when String.length s > 0
-                    && not (Char.equal s.[0] (Char.uppercase_ascii s.[0])) ->
+             | Longident.Lident s when Utils.isFirstCharUppercase s ->
                Some label
              | _ -> None)
       |> List.iter (fun label -> emitter |> emitRecordLabel ~label ~debug);

analysis/src/Utils.ml

@@ -15,6 +15,9 @@ let endsWith s suffix =
     let l = String.length s in
     p <= String.length s && String.sub s (l - p) p = suffix
 
+let isFirstCharUppercase s =
+  String.length s > 0 && not (Char.equal s.[0] (Char.uppercase_ascii s.[0]))
+
 let cmtPosToPosition {Lexing.pos_lnum; pos_cnum; pos_bol} =
   Protocol.{line = pos_lnum - 1; character = pos_cnum - pos_bol}