diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-02-26 23:14:28 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-02-26 23:35:29 +0100 |
| commit | 22572d56cb3da5b176b5b5697d4e8e71067eab74 (patch) | |
| tree | ef1cdb100716ff5d58c9ae6f75db4e198fd647ba /guix/scripts/publish.scm | |
| parent | acb01e37466a1d3fff81f10e00fe15a4ef20e2db (diff) | |
| download | patches-22572d56cb3da5b176b5b5697d4e8e71067eab74.tar patches-22572d56cb3da5b176b5b5697d4e8e71067eab74.tar.gz | |
store: 'path-info-deriver' is #f when there is no deriver.
* guix/store.scm (read-path-info): Use #f when we get the empty string
for DERIVER.
* guix/scripts/publish.scm (narinfo-string): Adjust accordingly.
* tests/store.scm ("path-info-deriver"): New test.
Diffstat (limited to 'guix/scripts/publish.scm')
| -rw-r--r-- | guix/scripts/publish.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/scripts/publish.scm b/guix/scripts/publish.scm index 5306afcf07..46292131d7 100644 --- a/guix/scripts/publish.scm +++ b/guix/scripts/publish.scm @@ -164,7 +164,7 @@ References: ~a~%" store-path url hash size references)) ;; Do not render a "Deriver" or "System" line if we are rendering ;; info for a derivation. - (info (if (string-null? deriver) + (info (if (not deriver) base-info (catch 'system-error (lambda () |