From f55505b90eb1c378a58c403dbc56c73e9d9c5b01 Mon Sep 17 00:00:00 2001
From: "Alejandro R. Mosteo" <alejandro@mosteo.com>
Date: Sat, 3 Feb 2018 01:20:02 +0100
Subject: [PATCH] Log folder movements

---
 src/alire-os_lib.adb | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/alire-os_lib.adb b/src/alire-os_lib.adb
index 45d16289..3c2e41aa 100644
--- a/src/alire-os_lib.adb
+++ b/src/alire-os_lib.adb
@@ -56,6 +56,7 @@ package body Alire.OS_Lib is
    begin
       return Guard : Folder_Guard (Current'Length) do
          Guard.Original := Current;
+         Log ("Entering folder: " & Path, Debug);
          Ada.Directories.Set_Directory (Path);
          Guard.Initialized := True;
       end return;
@@ -68,6 +69,7 @@ package body Alire.OS_Lib is
    overriding procedure Finalize (This : in out Folder_Guard) is
    begin
       if This.Initialized then
+         Log ("Going back to folder: " & This.Original, Debug);
          Ada.Directories.Set_Directory (This.Original);
          --  FIXME: what if this throws?
       end if;