From 8c811abb3174b44601b8996a1fe1718f37d7bd14 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 15 Feb 2017 00:15:22 +0100
Subject: [PATCH] base: Remove unnecessary 'file-exists?' call.

* src/cuirass/base.scm (fetch-repository): Remove 'file-exists?' call
before 'mkdir-p'.
---
 src/cuirass/base.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index e1b0ad4..dc05651 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -86,7 +86,7 @@ if required.  Return the last commit ID on success, #f otherwise."
       commit))
 
   (let ((cachedir (%package-cachedir)))
-    (or (file-exists? cachedir) (mkdir-p cachedir))
+    (mkdir-p cachedir)
     (with-directory-excursion cachedir
       (let ((name   (assq-ref spec #:name))
             (url    (assq-ref spec #:url))