diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-02-21 17:54:32 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-02-21 23:49:52 +0100 |
| commit | 3140f2df423d1235c3766e3478a429ac89d882ed (patch) | |
| tree | a250657c8c3682f5be9f40493d328f9c9ab83f20 /guix/nar.scm | |
| parent | c1d52c71aa4fc8085a9737ad1b235ca53a854649 (diff) | |
| download | guix-3140f2df423d1235c3766e3478a429ac89d882ed.tar.gz | |
guix hash: Add '--recursive'.
* guix/scripts/hash.scm (show-help): Add --recursive. (%options): Likewise. (guix-hash)[file-hash]: New procedure. Honor --recursive. Use it. * guix/nar.scm (write-file): Add missing field to the &nar-error condition raised upon unsupported file type; change its message to be more descriptive. * tests/guix-hash.sh: Add tests with -r. * doc/guix.texi (Invoking guix hash): Document --recursive.
Diffstat (limited to 'guix/nar.scm')
| -rw-r--r-- | guix/nar.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/nar.scm b/guix/nar.scm index 89a71302e0..9ba6e4ce2c 100644 --- a/guix/nar.scm +++ b/guix/nar.scm @@ -195,8 +195,8 @@ sub-directories of FILE as needed." (write-string "target" p) (write-string (readlink f) p)) (else - (raise (condition (&message (message "ENOSYS")) - (&nar-error))))) + (raise (condition (&message (message "unsupported file type")) + (&nar-error (file f) (port port)))))) (write-string ")" p)))) (define (restore-file port file) |