From eee212710978fb2044d3312aff0bf33b508aa026 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Sat, 26 Apr 2014 16:38:38 +0200
Subject: store: (direct-store-path? (%store-prefix)) returns #f.

* guix/store.scm (direct-store-path?): Return #f if PATH
  is (%store-prefix).
* tests/store.scm ("direct-store-path?"): Add test.
---
 guix/store.scm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'guix/store.scm')

diff --git a/guix/store.scm b/guix/store.scm
index c1898c5c81..2b924db213 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -839,6 +839,7 @@ be used internally by the daemon's build hook."
 This predicate is sometimes needed because files *under* a store path are not
 valid inputs."
   (and (store-path? path)
+       (not (string=? path (%store-prefix)))
        (let ((len (+ 1 (string-length (%store-prefix)))))
          (not (string-index (substring path len) #\/)))))
 
-- 
cgit v1.2.3