Make internal functions private in the package interface.

1 files changed, 6 insertions, 4 deletions

diff --git a/src/hypervisor_check.ads b/src/hypervisor_check.ads
index dea832e..11d638d 100644
--- a/src/hypervisor_check.ads
+++ b/src/hypervisor_check.ads
@@ -7,6 +7,12 @@ package Hypervisor_Check is
 
     package US renames Ada.Strings.Unbounded;
 
+    function Get_Vendor_Name return US.Unbounded_String;
+
+    function Hypervisor_Present return Boolean;
+
+private
+
     Hypervisor_Leaf : constant := 16#40000000#;
     type CPUID_Registers is array (1 .. 4) of Unsigned_32;
 
@@ -14,10 +20,6 @@ package Hypervisor_Check is
 
     function String_of_U32 (Arg : Unsigned_32) return US.Unbounded_String;
 
-    function Hypervisor_Present return Boolean;
-
     function Get_Vendor_String return US.Unbounded_String;
 
-    function Get_Vendor_Name return US.Unbounded_String;
-
 end Hypervisor_Check;