diff options
| author | Daniil Baturin <daniil@baturin.org> | 2015-04-06 19:06:57 +0600 |
|---|---|---|
| committer | Daniil Baturin <daniil@baturin.org> | 2015-04-06 19:06:57 +0600 |
| commit | cdb22deb6155280ad3f4bd75306b62b6105f44b0 (patch) | |
| tree | b7673dd20596aaa6866a56071d0b306166442ed6 /src/hypervisor_check.adb | |
| parent | 43ad7f13d2ed3b7e064b01dcba83ae06331ba696 (diff) | |
| download | hvinfo-cdb22deb6155280ad3f4bd75306b62b6105f44b0.tar.gz hvinfo-cdb22deb6155280ad3f4bd75306b62b6105f44b0.zip | |
Get rid of human-readable names duplication.
Diffstat (limited to 'src/hypervisor_check.adb')
| -rw-r--r-- | src/hypervisor_check.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/hypervisor_check.adb b/src/hypervisor_check.adb index 2de7030..39a1446 100644 --- a/src/hypervisor_check.adb +++ b/src/hypervisor_check.adb @@ -136,13 +136,13 @@ package body Hypervisor_Check is begin Vendor_String := Get_Vendor_String; if Vendor_String = "KVMKVMKVM" then - Vendor_Name := To_Unbounded_String ("KVM"); + Vendor_Name := To_Unbounded_String (KVM); elsif Vendor_String = "XenVMMXenVMM" then - Vendor_Name := To_Unbounded_String ("Xen"); + Vendor_Name := To_Unbounded_String (Xen_HVM); elsif Vendor_String = "VMwareVMware" then - Vendor_Name := To_Unbounded_String ("VMWare"); + Vendor_Name := To_Unbounded_String (VMware); elsif Vendor_String = "Microsoft Hv" then - Vendor_Name := To_Unbounded_String ("Microsoft Hyper-V"); + Vendor_Name := To_Unbounded_String (HyperV); elsif Vendor_String = "bhyve bhyve " then Vendor_Name := To_Unbounded_String (bhyve); else |