X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=lib%2Fdiskimage_mbr.ml;h=91ec20f55bf8e4558e6c897e369928d988b45110;hb=3844c0e3ba0eb0e07b7ecabe7794def7dd622c2b;hp=bd02f65223402a8f5a177598c647975d70f7331e;hpb=2685b4ecb17fcfc20977e3964cd491fb90cfa1aa;p=virt-df.git

diff --git a/lib/diskimage_mbr.ml b/lib/diskimage_mbr.ml
index bd02f65..91ec20f 100644
--- a/lib/diskimage_mbr.ml
+++ b/lib/diskimage_mbr.ml
@@ -26,6 +26,8 @@ open ExtList
 
 open Diskimage_utils
 
+let plugin_id = "mbr"
+
 let sector_size = 512
 let sector_size64 = 512L
 
@@ -56,7 +58,7 @@ end
 
     @raise Not_found if it is not an MBR.
  *)
-let rec probe_mbr dev =
+let rec probe dev =
   (* Read the first sector. *)
   let bits =
     try dev#read_bitstring 0L sector_size
@@ -87,7 +89,7 @@ let rec probe_mbr dev =
       let extendeds = List.concat extendeds in
       primaries @ extendeds
 *)
-      { parts_name = "MBR"; parts = primaries }
+      { parts_plugin_id = plugin_id; parts = primaries }
 
   | { _ } ->
       raise Not_found			(* not an MBR *)