From 4057fbc2496345b1a1151288ccd664aa75a8e41b Mon Sep 17 00:00:00 2001
From: A <alejandro@mosteo.com>
Date: Mon, 19 Feb 2018 20:26:30 +0100
Subject: [PATCH] Towards origins

---
 src/alire-repositories-git.adb | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/alire-repositories-git.adb b/src/alire-repositories-git.adb
index dcf7cc9f..aac26346 100644
--- a/src/alire-repositories-git.adb
+++ b/src/alire-repositories-git.adb
@@ -17,6 +17,13 @@ package body Alire.Repositories.Git is
          OS_Lib.Spawn ("git", "reset --hard -q " & Id);
          Set_Directory (Parent);
       end;
+   exception
+      when others =>
+         Trace.Error ("Checkout of " & Id & " from " & R.Image & " to " & Folder & " failed");
+         if Ada.Directories.Exists (Folder) then
+            Ada.Directories.Delete_Tree (Folder);
+         end if;
+         raise;
    end Checkout;
 
 end Alire.Repositories.Git;