diff options
| author | Daniil Baturin <daniil@baturin.org> | 2015-04-04 16:11:10 +0600 |
|---|---|---|
| committer | Daniil Baturin <daniil@baturin.org> | 2015-04-04 16:11:10 +0600 |
| commit | 906da6a7baedc302674b59ce70bfe50b44a834df (patch) | |
| tree | b60085b5593db1918ccfb4637d0452a3ef363637 | |
| parent | 577ffc85192f1d445fe42c8f1665b2136c3df575 (diff) | |
| download | hvinfo-906da6a7baedc302674b59ce70bfe50b44a834df.tar.gz hvinfo-906da6a7baedc302674b59ce70bfe50b44a834df.zip | |
Fix Ada.Directories import.
| -rw-r--r-- | src/hypervisor_check.adb | 2 | ||||
| -rw-r--r-- | src/hypervisor_check.ads | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/src/hypervisor_check.adb b/src/hypervisor_check.adb index 113f5f3..9072b06 100644 --- a/src/hypervisor_check.adb +++ b/src/hypervisor_check.adb @@ -99,7 +99,7 @@ package body Hypervisor_Check is function DMI_Available return Boolean is begin if Config.Linux then - if Directories.Exists("/sys/class/dmi") then + if Ada.Directories.Exists("/sys/class/dmi") then return True; else return False; diff --git a/src/hypervisor_check.ads b/src/hypervisor_check.ads index 86ca5a2..9571393 100644 --- a/src/hypervisor_check.ads +++ b/src/hypervisor_check.ads @@ -3,6 +3,7 @@ with System.Machine_Code; use System.Machine_Code; with Ada.Strings.Unbounded; with Ada.Text_IO; with Ada.Text_IO.Unbounded_IO; +with Ada.Directories; with Config; |