X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=virt-df%2Fvirt_df_lvm2.ml;h=a79ec7f58247d3890a6bd1d1c18643cc914850b9;hb=fabdbe4e169e123774ab1bf665cdf4a4e9536296;hp=d01a5a8fac68a8fc2b4ff9f4c97d2e004cad5dab;hpb=e6cca10e5cf86b9bd280e371fb1195835a96bff0;p=virt-top.git

diff --git a/virt-df/virt_df_lvm2.ml b/virt-df/virt_df_lvm2.ml
index d01a5a8..a79ec7f 100644
--- a/virt-df/virt_df_lvm2.ml
+++ b/virt-df/virt_df_lvm2.ml
@@ -22,18 +22,11 @@
 
 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 (s_ "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