diff options
| -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; |