Browse Source

Add cautions about last commit

Leo 9 years ago
parent
commit
00917ebe0e
1 changed files with 2 additions and 0 deletions
  1. 2 0
      src/command_def.ml

+ 2 - 0
src/command_def.ml

@@ -339,6 +339,8 @@ let run ~version ~build_info () =
            | Error _ -> parse_sub ())
            | Error _ -> parse_sub ())
     with
     with
     | () -> `Exit 0
     | () -> `Exit 0
+    (* XXX Command.basic function catch exceptions, so this doesn't actually
+     * work. We may to place it before basic function to fix the problem. *)
     | exception message ->
     | exception message ->
       "Exception: " ^ (Exn.to_string message)
       "Exception: " ^ (Exn.to_string message)
       |> Messages.warning;
       |> Messages.warning;