From cdb22deb6155280ad3f4bd75306b62b6105f44b0 Mon Sep 17 00:00:00 2001 From: Daniil Baturin Date: Mon, 6 Apr 2015 19:06:57 +0600 Subject: Get rid of human-readable names duplication. --- src/hypervisor_check.adb | 8 ++++---- src/hypervisor_check.ads | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) (limited to 'src') 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 diff --git a/src/hypervisor_check.ads b/src/hypervisor_check.ads index 71a9463..44ca16e 100644 --- a/src/hypervisor_check.ads +++ b/src/hypervisor_check.ads @@ -52,7 +52,7 @@ package Hypervisor_Check is function VirtualBox_PCI_Present return Boolean; -- Vendor names for human consumption - VMWare : constant String := "VMWare"; + VMware : constant String := "VMware"; Xen_HVM : constant String := "Xen HVM"; Xen_PV : constant String := "Xen PV"; KVM : constant String := "KVM"; -- cgit v1.2.3