diff options
| author | Daniil Baturin <daniil@baturin.org> | 2015-03-05 18:11:23 +0600 |
|---|---|---|
| committer | Daniil Baturin <daniil@baturin.org> | 2015-03-05 18:11:23 +0600 |
| commit | a0addb5d8e568493dc659039487eb5b95c6da530 (patch) | |
| tree | 7ba30dc4594d0716328e26c03a52f7ea6231e97a /src/hvinfo.adb | |
| parent | 34c7b0e94c68a4800cb64d3a844d7d47ad3e51a8 (diff) | |
| download | hvinfo-a0addb5d8e568493dc659039487eb5b95c6da530.tar.gz hvinfo-a0addb5d8e568493dc659039487eb5b95c6da530.zip | |
Use unbounded IO.
Diffstat (limited to 'src/hvinfo.adb')
| -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); |