SR.ls uses a common 'volume_of_lv' function

Signed-off-by: David Scott <dave.scott@citrix.com>

Author: David Scott

examples/volume/org.xen.xcp.storage.plainlvm/SR.ls

@@ -23,15 +23,7 @@ module Command = struct
   include SR.Ls
 
   let command common { SR.Ls.In.dbg; sr } =
-    List.map
-      (fun lv -> {
-        key = lv.Lvm.name;
-        name = lv.Lvm.name;
-        description = "";
-        read_write = true;
-        uri = ["block://" ^ (Lvm.path_of sr lv.Lvm.name) ];
-        virtual_size = lv.Lvm.size;
-      } ) (Lvm.lvs sr)
+    List.map (Lvm.volume_of_lv sr) (Lvm.lvs sr)
 end
 
 module Test = struct

examples/volume/org.xen.xcp.storage.plainlvm/lvm.ml

@@ -118,3 +118,11 @@ let path_of vg lv =
   let lv' = Re_str.split_delim dash lv in
   "/dev/mapper/" ^ vg ^ "-" ^ (String.concat "--" lv')
 
+let volume_of_lv sr lv = {
+  Storage.V.Types.key = lv.name;
+  name = lv.name;
+  description = "";
+  read_write = true;
+  uri = ["block://" ^ (path_of sr lv.name) ];
+  virtual_size = lv.size;
+}