Displaying 1 result from an estimated 1 matches for "b40dbf4".
Did you mean:
b007bf4
2015 Nov 11
1
[PATCH] sparsify: Make the interface between cmdline.ml and sparsify.ml explicit.
...ode_t;
+}
+
+and mode_t =
+| Mode_copying of
+ string * check_t * bool * string option * string option * string option
+| Mode_in_place
+and check_t = [`Ignore|`Continue|`Warn|`Fail]
+
+val parse_cmdline : unit -> cmdline
diff --git a/sparsify/sparsify.ml b/sparsify/sparsify.ml
index 30e3020..b40dbf4 100644
--- a/sparsify/sparsify.ml
+++ b/sparsify/sparsify.ml
@@ -30,15 +30,16 @@ module G = Guestfs
let () = Random.self_init ()
let rec main () =
- let indisk, format, ignores, machine_readable, zeroes, mode =
- parse_cmdline () in
+ let cmdline = parse_cmdline () in
- (match mode with...