[chore] Sort lints by id in th lints list

Signed-off-by: Kakadu <[email protected]>

src/Lint_filesystem.ml

@@ -79,4 +79,5 @@ TODO: Add custom configuration for this.
   |> Stdlib.String.trim
 ;;
 
-let describe_as_json () = Utils.describe_as_clippy_json "lint_filesystem" ~docs
+let lint_id = "lint_filesystem"
+let describe_as_json () = Utils.describe_as_clippy_json lint_id ~docs

src/Lint_filesystem.mli

@@ -8,3 +8,4 @@
 
 val check : Dune_project.t list -> unit
 val describe_as_json : unit -> Yojson.Safe.t
+val lint_id : string

src/main.ml

@@ -256,11 +256,13 @@ let () =
       let info =
         List.concat
           [ List.map untyped_linters ~f:(fun (module L : LINT.UNTYPED) ->
-              L.describe_as_json ())
+              L.lint_id, L.describe_as_json ())
           ; List.map typed_linters ~f:(fun (module L : LINT.TYPED) ->
-              L.describe_as_json ())
-          ; [ Lint_filesystem.describe_as_json () ]
+              L.lint_id, L.describe_as_json ())
+          ; [ Lint_filesystem.lint_id, Lint_filesystem.describe_as_json () ]
           ]
+        |> List.sort ~compare:(fun (a, _) (b, _) -> String.compare a b)
+        |> List.map ~f:snd
       in
       let ch = Caml.open_out filename in
       Exn.protect