From a0addb5d8e568493dc659039487eb5b95c6da530 Mon Sep 17 00:00:00 2001
From: Daniil Baturin <daniil@baturin.org>
Date: Thu, 5 Mar 2015 18:11:23 +0600
Subject: Use unbounded IO.

---
 src/hvinfo.adb | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'src')

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);
-- 
cgit v1.2.3