CLI: don't break the build if Block.connect has optional arguments

See [mirage/mirage-block-unix#52] Signed-off-by: David Scott <[email protected]>
djs55 · Sep 21, 2016 · 5ba9c65 · 5ba9c65
1 parent 5677d6f
commit 5ba9c65
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/cli/impl.ml b/cli/impl.ml
@@ -43,6 +43,13 @@ let to_cmdliner_error = function
   | `Error (`Unknown x) -> `Error(false, x)
   | `Ok x -> `Ok x
 
+module Block = struct
+  include Block
+  (* We're not interested in any optional arguments [connect] may or may not
+     have *)
+  let connect path = connect path
+end
+
 module TracedBlock = struct
   include Block