Complete rewrite of virt-df:

[virt-top.git] / virt-df / virt_df_lvm2.ml

diff --git a/virt-df/virt_df_lvm2.ml b/virt-df/virt_df_lvm2.ml
old mode 100755 (executable)
new mode 100644 (file)
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