chore: remove unused methods

OCamlPro · Jul 31, 2024 · 2118d34 · 2118d34
1 parent e9d5057
commit 2118d34
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 39 deletions.
diff --git a/src/lsp/cobol_parser/grammar_utils.ml b/src/lsp/cobol_parser/grammar_utils.ml
@@ -94,29 +94,3 @@ let build_data_division = function
               { d with screen_sections = ss :: d.screen_sections }
       in
       Some (rebuild_sections list empty_data_division &@ loc)
-
-type configuration_section_paragraph =
-  | P_SOURCE_COMPUTER_PARAGRAPH of source_computer_paragraph with_loc
-  | P_OBJECT_COMPUTER_PARAGRAPH of object_computer_paragraph with_loc
-  | P_SPECIAL_NAMES_PARAGRAPH of special_names_paragraph with_loc
-  | P_REPOSITORY_PARAGRAPH of repository_paragraph with_loc
-
-let rec build_configuration_section = function
-  | [] -> {
-      source_computer_paragraph = None;
-      object_computer_paragraph = None;
-      special_names_paragraph = None;
-      repository_paragraph = None;
-    }
-  | hd::tl ->
-    let section = build_configuration_section tl in
-    match hd with
-    | P_SOURCE_COMPUTER_PARAGRAPH p ->
-      { section with source_computer_paragraph = Some p }
-    | P_OBJECT_COMPUTER_PARAGRAPH p ->
-      { section with object_computer_paragraph = Some p }
-    | P_SPECIAL_NAMES_PARAGRAPH p ->
-      { section with special_names_paragraph = Some p }
-    | P_REPOSITORY_PARAGRAPH p ->
-      { section with repository_paragraph = Some p }
-
diff --git a/src/lsp/cobol_parser/grammar_utils.mli b/src/lsp/cobol_parser/grammar_utils.mli
@@ -36,12 +36,3 @@ type data_division_sentence =
 (* Takes a *reversed* list of sentences. *)
 val build_data_division: data_division_sentence list with_loc ->
   data_division with_loc option
-
-type configuration_section_paragraph =
-  | P_SOURCE_COMPUTER_PARAGRAPH of source_computer_paragraph with_loc
-  | P_OBJECT_COMPUTER_PARAGRAPH of object_computer_paragraph with_loc
-  | P_SPECIAL_NAMES_PARAGRAPH of special_names_paragraph with_loc
-  | P_REPOSITORY_PARAGRAPH of repository_paragraph with_loc
-
-val build_configuration_section
-  : configuration_section_paragraph list -> configuration_section
diff --git a/src/lsp/cobol_ptree/common.ml b/src/lsp/cobol_ptree/common.ml
@@ -168,15 +168,15 @@ let fold_quartet quartet (a, b, c, d) (fa, fb, fc, fd) acc =
 
 (* splitted *)
 
-type permutation_duo =
+type permutation_duo' =
   | AB
   | BA
 [@@deriving ord]
 
 type permutation_trio' =
-  | A3 of permutation_duo
-  | B3 of permutation_duo
-  | C3 of permutation_duo
+  | A3 of permutation_duo'
+  | B3 of permutation_duo'
+  | C3 of permutation_duo'
 [@@deriving ord]
 
 type permutation_quartet' =