diff options
author | Richard W.M. Jones <rjones@redhat.com> | 2007-12-20 16:55:46 +0000 |
---|---|---|
committer | Richard W.M. Jones <rjones@redhat.com> | 2007-12-20 16:55:46 +0000 |
commit | a8e571097acd0624c6803c878d09c930055cfd39 (patch) | |
tree | 2ddfe3334807cb2f3d19eeb979479a4dcaa97112 /virt-top | |
parent | a0e7843645253be00956b5382242791fe126eb28 (diff) | |
download | virt-top-a8e571097acd0624c6803c878d09c930055cfd39.tar.gz virt-top-a8e571097acd0624c6803c878d09c930055cfd39.tar.xz virt-top-a8e571097acd0624c6803c878d09c930055cfd39.zip |
New exception Libvirt.Not_supported "function"
* libvirt/libvirt.ml, libvirt/libvirt.mli, libvirt/libvirt_c.c:
Change the ad-hoc "foo not supported" exception into a
specific Libvirt.Not_supported "foo" exception.
* virt-top/virt_top.ml: Change virt-top to understand new
exception type.
Diffstat (limited to 'virt-top')
-rw-r--r-- | virt-top/virt_top.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/virt-top/virt_top.ml b/virt-top/virt_top.ml index 4bce7dd..b3e2628 100644 --- a/virt-top/virt_top.ml +++ b/virt-top/virt_top.ml @@ -241,7 +241,7 @@ OPTIONS" in (* qemu:/// and other URIs didn't support virConnectGetHostname until * libvirt 0.3.3. Before that they'd throw a virterror. *) | Libvirt.Virterror _ - | Invalid_argument "virConnectGetHostname not supported" -> "unknown" in + | Libvirt.Not_supported "virConnectGetHostname" -> "unknown" in let libvirt_version = let v, _ = Libvirt.get_version () in @@ -433,12 +433,12 @@ let collect, clear_pcpu_display_data = let block_stats = try List.map (fun dev -> dev, D.block_stats dom dev) blkdevs with - | Invalid_argument "virDomainBlockStats not supported" + | Libvirt.Not_supported "virDomainBlockStats" | Libvirt.Virterror _ -> [] in let interface_stats = try List.map (fun dev -> dev, D.interface_stats dom dev) netifs with - | Invalid_argument "virDomainInterfaceStats not supported" + | Libvirt.Not_supported "virDomainInterfaceStats" | Libvirt.Virterror _ -> [] in let prev_info, prev_block_stats, prev_interface_stats = |