From 826bdace34a0689c13b2cd6eb0190a39815ba155 Mon Sep 17 00:00:00 2001 From: Jonathan Ludlam Date: Fri, 15 Jan 2010 12:02:42 +0000 Subject: [PATCH] Fix camldm after renaming of jsonrpc to rpc-light.json. Also add a datatype maybe needed for rpc-light Signed-off-by: Jonathan Ludlam Acked-by: David Scott --- camldm/META.in | 2 +- camldm/camldm.mli | 5 +++++ 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/camldm/META.in b/camldm/META.in index 44a4060..9774760 100644 --- a/camldm/META.in +++ b/camldm/META.in @@ -1,5 +1,5 @@ version = "@VERSION@" description = "device-mapper ocaml interface" -requires = "unix,jsonrpc" +requires = "unix,rpc-light.json" archive(byte) = "camldm.cma" archive(native) = "camldm.cmxa" diff --git a/camldm/camldm.mli b/camldm/camldm.mli index fc57112..45140f0 100644 --- a/camldm/camldm.mli +++ b/camldm/camldm.mli @@ -17,6 +17,9 @@ type dev = { device : devty; offset : int64; } type stripety = { chunk_size : int64; dests : dev array; } type mapty = Linear of dev | Striped of stripety type mapping = { start : int64; len : int64; map : mapty; } +type mapping_array = { + m : mapping array +} type status = { exists : bool; suspended : bool; @@ -33,6 +36,8 @@ type status = { exception CreateError of string exception ReloadError of string +val rpc_of_mapping_array : mapping_array -> Rpc.t +val mapping_array_of_rpc : Rpc.t -> mapping_array val convert_mapty : mapty -> (string * string) list -> string * string val create : string -> mapping array -> (string * string) list -> unit val reload : string -> mapping array -> (string * string) list -> unit -- 2.39.5