substitute-binary: Skip servers that use a different store prefix.

* guix/scripts/substitute-binary.scm (fetch-narinfo): Return #f when
  CACHE uses a store directory different from (%store-prefix).
This commit is contained in:
Ludovic Courtès 2013-04-15 23:27:04 +02:00
parent 0c357a088b
commit e967678ed1
1 changed files with 5 additions and 4 deletions

View File

@ -257,10 +257,11 @@ reading PORT."
;; list of key/value pairs.
(false-if-exception (fetch (string->uri url))))
(and=> (download (string-append (cache-url cache) "/"
(store-path-hash-part path)
".narinfo"))
(cute read-narinfo <> (cache-url cache))))
(and (string=? (cache-store-directory cache) (%store-prefix))
(and=> (download (string-append (cache-url cache) "/"
(store-path-hash-part path)
".narinfo"))
(cute read-narinfo <> (cache-url cache)))))
(define (lookup-narinfo cache path)
"Check locally if we have valid info about PATH, otherwise go to CACHE and