# HG changeset patch
# User Jonathan Ludlam <Jonathan.Ludlam@xxxxxxxxxxxxx>
# Date 1263556962 0
# Node ID 2accd4bcf94580f6f744ca18ba7bcc5dfb306adc
# Parent  780d5e8e2e992816c553044cfc8937d3a96c8e8b
Fix camldm after renaming of jsonrpc to rpc-light.json. Also add a datatype maybe needed for rpc-light

Signed-off-by: Jonathan Ludlam <Jonathan.Ludlam@xxxxxxxxxxxxx>
Acked-by: David Scott <dave.scott@xxxxxxxxxxxxx>

diff -r 780d5e8e2e99 -r 2accd4bcf945 camldm/META.in
--- a/camldm/META.in	Mon Jan 11 17:44:38 2010 +0000
+++ b/camldm/META.in	Fri Jan 15 12:02:42 2010 +0000
@@ -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 -r 780d5e8e2e99 -r 2accd4bcf945 camldm/camldm.mli
--- a/camldm/camldm.mli	Mon Jan 11 17:44:38 2010 +0000
+++ b/camldm/camldm.mli	Fri Jan 15 12:02:42 2010 +0000
@@ -17,6 +17,9 @@
 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 @@
 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