From 742987e93255974ac966486cf5e8a16374deea90 Mon Sep 17 00:00:00 2001 From: David Scott Date: Thu, 30 Jan 2014 21:50:55 +0000 Subject: [PATCH] Update to nbd.1.0.1 (specifically result is a poly variant) Signed-off-by: David Scott --- CHANGES | 3 +++ src/impl.ml | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/CHANGES b/CHANGES index 3918b59..77e83a3 100644 --- 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 index 2232bc5..bac3c02 100644 --- 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