Update to nbd.1.0.1 (specifically result is a poly variant)

Signed-off-by: David Scott <dave.scott@eu.citrix.com>
djs55 · Jan 30, 2014 · 742987e · 742987e
1 parent 848cb8c
commit 742987e
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/CHANGES b/CHANGES
@@ -1,3 +1,6 @@
+0.7.1 (2014-01-30)
+* update to nbd.1.0.1
+
 0.7.0 (2014-01-30)
 * vhd-tool: can create vhd-formatted output from 'hybrid' input
 * update to ocaml-vhd 0.7.0

diff --git a/src/impl.ml b/src/impl.ml
@@ -800,8 +800,8 @@ let serve_nbd_to_raw common size c dest _ _ _ _ =
   let rec serve_requests () =
     c.Channels.really_read req >>= fun () ->
     match Request.unmarshal req with
-    | Result.Error e -> fail e
-    | Result.Ok request ->
+    | `Error e -> fail e
+    | `Ok request ->
       if common.Common.debug
       then Printf.fprintf stderr "%s\n%!" (Request.to_string request);
       begin match request.Request.ty with