Use unbounded IO.

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);