diff options
author | Leo Famulari <leo@famulari.name> | 2016-10-29 21:44:39 -0400 |
---|---|---|
committer | Leo Famulari <leo@famulari.name> | 2016-10-29 21:44:44 -0400 |
commit | 062c7e43ed306c66f1107ee3bd52357aa8daf11a (patch) | |
tree | f620ea2436a9809d7e4113fa3c9704c5f7892c8e /guix | |
parent | f4fe6c991cbac609be327ad8ed793c5b1b91aac8 (diff) | |
parent | 269d9172ff037bd41bee3777166b3bc14d93f745 (diff) | |
download | gnu-guix-062c7e43ed306c66f1107ee3bd52357aa8daf11a.tar gnu-guix-062c7e43ed306c66f1107ee3bd52357aa8daf11a.tar.gz |
Merge branch 'master' into core-updates
Diffstat (limited to 'guix')
-rw-r--r-- | guix/scripts/hash.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/scripts/hash.scm b/guix/scripts/hash.scm index b269ead50f..a339a8556b 100644 --- a/guix/scripts/hash.scm +++ b/guix/scripts/hash.scm @@ -139,7 +139,9 @@ and 'hexadecimal' can be used as well).\n")) (write-file file port #:select? select?) (force-output port) (get-hash)) - (call-with-input-file file port-sha256)))) + (match file + ("-" (port-sha256 (current-input-port))) + (_ (call-with-input-file file port-sha256)))))) (match args ((file) |