Update to the new Redo_log flush API

Signed-off-by: David Scott <[email protected]>

Author: David Scott

xenvm-local-allocator/local_allocator.ml

@@ -449,7 +449,7 @@ let main use_mock config daemon socket journal fromLVM toLVM =
                   J.push j { Op.volume; device }
                   >>|= fun wait ->
                   (* The operation is now in the journal *)
-                  wait ()
+                  wait.J.sync ()
                   (* The operation is now complete *)
                   >>= fun () ->
                   let action = match action with

xenvmd/xenvmd.ml

@@ -649,7 +649,7 @@ module FreePool = struct
                J.push j (Op.FreeAllocation (host, allocated_extents))
                >>|= fun wait ->
                (* The operation is now in the journal *)
-               wait ()
+               wait.J.sync ()
                (* The operation has been performed *)
              | None, `Ok _ ->
                error "Unable to extend LV %s because the journal is not configured" freename;