Implement serial console (mclu console ..)

[mclu.git] / mclu.ml

diff --git a/mclu.ml b/mclu.ml
index 65e7e7b..2b34dac 100644 (file)
--- a/mclu.ml
+++ b/mclu.ml
@@ -52,6 +52,9 @@ let anon_fun, get_anon_args =
       | "boot" ->
         speclist := Mclu_boot.get_arg_speclist ();
         subcommand_run := Mclu_boot.run
+      | "console" ->
+        speclist := Mclu_console.get_arg_speclist ();
+        subcommand_run := Mclu_console.run
       | "list" ->
         speclist := Mclu_list.get_arg_speclist ();
         subcommand_run := Mclu_list.run