X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=virt-df%2Fvirt_df_lvm2.ml;h=a79ec7f58247d3890a6bd1d1c18643cc914850b9;hb=e6050cae9eee80791c3bb26f34c61f7dc89b142f;hp=8dc0c05f9bc22fd92e16ec6b07ef95cb5f762abf;hpb=3126bfee333b5c635dc60a54265936af06117f6a;p=virt-top.git

diff --git a/virt-df/virt_df_lvm2.ml b/virt-df/virt_df_lvm2.ml
old mode 100755
new mode 100644
index 8dc0c05..a79ec7f
--- a/virt-df/virt_df_lvm2.ml
+++ b/virt-df/virt_df_lvm2.ml
@@ -21,18 +21,12 @@
 *)
 
 open Printf
+open Virt_df_gettext.Gettext
+open Virt_df
 
-(* Int64 operators for convenience. *)
-let (+^) = Int64.add
-let (-^) = Int64.sub
-let ( *^ ) = Int64.mul
-let (/^) = Int64.div
-
-let probe_lvm2 target part_type fd start size =
-  Virt_df.ProbeFailed "LVM2 not supported yet"
+let probe_lvm2 (dev : device) =
+  raise Not_found
 
 (* Register with main code. *)
 let () =
-  Virt_df.fs_register
-    [ 0x8e ]				(* Partition type. *)
-    probe_lvm2
+  filesystem_type_register "LVM2" probe_lvm2