From 906da6a7baedc302674b59ce70bfe50b44a834df Mon Sep 17 00:00:00 2001
From: Daniil Baturin <daniil@baturin.org>
Date: Sat, 4 Apr 2015 16:11:10 +0600
Subject: Fix Ada.Directories import.

---
 src/hypervisor_check.adb | 2 +-
 src/hypervisor_check.ads | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

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