Migrate init to cmdliner nested subcommands

Closes #6161 Signed-off-by: Shon Feder <[email protected]>
ocaml · Oct 11, 2022 · 8d1c35a · 8d1c35a
1 parent 3f7b77e
commit 8d1c35a
Show file tree

Hide file tree

Showing 7 changed files with 177 additions and 238 deletions.
diff --git a/bin/dune_init.ml b/bin/dune_init.ml
@@ -10,27 +10,6 @@ module Dialect = Dune_engine.Dialect
     syntax tree (CST) a good deal. *)
 module Cst = Dune_lang.Cst
 
-module Kind = struct
-  type t =
-    | Executable
-    | Library
-    | Project
-    | Test
-
-  let to_string = function
-    | Executable -> "executable"
-    | Library -> "library"
-    | Project -> "project"
-    | Test -> "test"
-
-  let commands =
-    [ ("executable", Executable)
-    ; ("library", Library)
-    ; ("project", Project)
-    ; ("test", Test)
-    ]
-end
-
 (** Abstractions around the kinds of files handled during initialization *)
 module File = struct
   type dune =

diff --git a/bin/dune_init.mli b/bin/dune_init.mli
@@ -2,19 +2,6 @@
 
 open! Stdune
 
-(** Supported kinds of components for initialization *)
-module Kind : sig
-  type t =
-    | Executable
-    | Library
-    | Project
-    | Test
-
-  val to_string : t -> string
-
-  val commands : (string * t) list
-end
-
 (** The context in which the initialization is executed *)
 module Init_context : sig
   type t =