diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-01-08 19:23:33 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-01-08 19:23:33 +0100 |
| commit | 021a201f2967e5a5afdabb03148f225f94c58403 (patch) | |
| tree | a66054adb82ca5daadceb17443c25850e994c44e | |
| parent | 87236aed77bd57ecd143d84acf864fb112842118 (diff) | |
| download | patches-021a201f2967e5a5afdabb03148f225f94c58403.tar patches-021a201f2967e5a5afdabb03148f225f94c58403.tar.gz | |
store: Fix 'log-file' to support uncompressed logs.
* guix/store.scm (log-file): Report the file without '.bz2' if it
exists.
| -rw-r--r-- | guix/store.scm | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/guix/store.scm b/guix/store.scm index 4ceca0daa2..159b5dc396 100644 --- a/guix/store.scm +++ b/guix/store.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2012, 2013, 2014 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -753,12 +753,15 @@ must be an absolute store file name, or a derivation file name." (or (getenv "NIX_STATE_DIR") %state-directory)) (cond ((derivation-path? file) - (let* ((base (basename file)) - (log (string-append (dirname state-dir) ; XXX: ditto - "/log/nix/drvs/" - (string-take base 2) "/" - (string-drop base 2) ".bz2"))) - (and (file-exists? log) log))) + (let* ((base (basename file)) + (log (string-append (dirname state-dir) ; XXX: ditto + "/log/nix/drvs/" + (string-take base 2) "/" + (string-drop base 2))) + (log.bz2 (string-append log ".bz2"))) + (cond ((file-exists? log.bz2) log.bz2) + ((file-exists? log) log) + (else #f)))) (else (match (valid-derivers store file) ((derivers ...) |