diff options
| -rw-r--r-- | src/hvinfo.adb | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/hvinfo.adb b/src/hvinfo.adb index 370d9e8..cfde51b 100644 --- a/src/hvinfo.adb +++ b/src/hvinfo.adb @@ -1,6 +1,4 @@ -with Interfaces; use Interfaces; -with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; -with Ada.Text_IO; use Ada.Text_IO; +with Ada.Text_IO.Unbounded_IO; use Ada.Text_IO.Unbounded_IO; with Ada.Command_Line; use Ada.Command_Line; with Hypervisor_Check; use Hypervisor_Check; @@ -9,7 +7,7 @@ begin -- Try CPUID checks first if Hypervisor_Present then - Put_Line (To_String (Get_Vendor_Name)); + Put_Line (Get_Vendor_Name); Set_Exit_Status (0); else Set_Exit_Status (1); |