diff options
| author | Daniil Baturin <daniil@baturin.org> | 2015-03-05 17:43:19 +0600 |
|---|---|---|
| committer | Daniil Baturin <daniil@baturin.org> | 2015-03-05 17:43:19 +0600 |
| commit | 34c7b0e94c68a4800cb64d3a844d7d47ad3e51a8 (patch) | |
| tree | c73956bd500f9cee72c6801f5f1432040c854f5b /src/hypervisor_check.adb | |
| parent | 0d86921c5c7af1d978a70da124ed26e3ea50a769 (diff) | |
| download | hvinfo-34c7b0e94c68a4800cb64d3a844d7d47ad3e51a8.tar.gz hvinfo-34c7b0e94c68a4800cb64d3a844d7d47ad3e51a8.zip | |
Make internal functions private in the package interface.
Diffstat (limited to 'src/hypervisor_check.adb')
| -rw-r--r-- | src/hypervisor_check.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/hypervisor_check.adb b/src/hypervisor_check.adb index b92f7d9..d939cd9 100644 --- a/src/hypervisor_check.adb +++ b/src/hypervisor_check.adb @@ -54,8 +54,8 @@ package body Hypervisor_Check is use US; Vendor_String, Vendor_Name : Unbounded_String; begin - Vendor_String := Get_Vendor_String; - if Vendor_String = "KVMKVMKVM" then + Vendor_String := Get_Vendor_String; + if Vendor_String = "KVMKVMKVM" then Vendor_Name := To_Unbounded_String ("KVM"); elsif Vendor_String = "XenVMMXenVMM" then Vendor_Name := To_Unbounded_String ("Xen"); @@ -69,5 +69,4 @@ package body Hypervisor_Check is return Vendor_Name; end Get_Vendor_Name; - end Hypervisor_Check; |