diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-09-15 23:20:16 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-09-15 23:21:30 +0200 |
| commit | 66018f1c338375796a8a2d5130bae5cdb9a48b5f (patch) | |
| tree | dcc11051aefcc31be1ed0152d959ccdc7b0131ce /guix/scripts | |
| parent | 8ce3104e0e290b603599ec2e1b86bb82497c2665 (diff) | |
| download | gnu-guix-66018f1c338375796a8a2d5130bae5cdb9a48b5f.tar gnu-guix-66018f1c338375796a8a2d5130bae5cdb9a48b5f.tar.gz | |
utils: 'find-files' returns a sorted list.
* guix/build/utils.scm (find-files): Sort the result lexicographically.
* guix/scripts/pull.scm (unpack): Don't sort the result of 'find-files'.
Diffstat (limited to 'guix/scripts')
| -rw-r--r-- | guix/scripts/pull.scm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/guix/scripts/pull.scm b/guix/scripts/pull.scm index f3d87a63c0..adcaa49721 100644 --- a/guix/scripts/pull.scm +++ b/guix/scripts/pull.scm @@ -116,9 +116,7 @@ files." ;; download), we must build it first to avoid errors since ;; (gnutls) is unavailable. (cons (string-append out "/guix/build/download.scm") - - ;; Sort the file names to get deterministic results. - (sort (find-files out "\\.scm") string<?))) + (find-files out "\\.scm"))) ;; Remove the "fake" (guix config). (delete-file (string-append out "/guix/config.scm")) |