diff options
| author | Eric Bavier <bavier@member.fsf.org> | 2014-09-04 09:19:24 -0500 |
|---|---|---|
| committer | Eric Bavier <bavier@member.fsf.org> | 2014-09-05 00:02:19 -0500 |
| commit | 11459384968f654c42ad7dba4443dada35191f5b (patch) | |
| tree | 074fdc0cd1ad48a244c2d6acac699805b9c86ec2 /guix/build/utils.scm | |
| parent | 6646747c020402fd077a719af99627d9cf3fe54d (diff) | |
| download | gnu-guix-11459384968f654c42ad7dba4443dada35191f5b.tar gnu-guix-11459384968f654c42ad7dba4443dada35191f5b.tar.gz | |
utils: Clean trailing whitespace at end of SHELL
* guix/build/utils.scm (patch-makefile-SHELL): Remove trailing whitespace.
Diffstat (limited to 'guix/build/utils.scm')
| -rw-r--r-- | guix/build/utils.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/build/utils.scm b/guix/build/utils.scm index f38b2cabfc..d169053c7b 100644 --- a/guix/build/utils.scm +++ b/guix/build/utils.scm @@ -582,7 +582,7 @@ When KEEP-MTIME? is true, the atime/mtime of FILE are kept unchanged." (let ((st (stat file))) (substitute* file - (("^ *SHELL[[:blank:]]*=[[:blank:]]*([[:graph:]]*/)([[:graph:]]+)[[:blank:]]*(.*)$" + (("^ *SHELL[[:blank:]]*=[[:blank:]]*([[:graph:]]*/)([[:graph:]]+)(.*)$" _ dir shell args) (let* ((old (string-append dir shell)) (new (or (find-shell shell) old))) @@ -590,7 +590,7 @@ When KEEP-MTIME? is true, the atime/mtime of FILE are kept unchanged." (format (current-error-port) "patch-makefile-SHELL: ~a: changing `SHELL' from `~a' to `~a'~%" file old new)) - (string-append "SHELL = " new " " args)))) + (string-append "SHELL = " new args)))) (when keep-mtime? (set-file-time file st)))) |