me
/
guix
Archived
1
0
Fork 0
Code

utils: Clean trailing whitespace at end of SHELL 

* guix/build/utils.scm (patch-makefile-SHELL): Remove trailing whitespace.
master
Eric Bavier 2014-09-04 09:19:24 -05:00
parent 6646747c02
commit 1145938496
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
guix/build/utils.scm
View File

@ -582,7 +582,7 @@ When KEEP-MTIME? is true, the atime/mtime of FILE are kept unchanged."
(let ((st (stat file))) (let ((st (stat file)))
(substitute* file (substitute* file
(("^ *SHELL[[:blank:]]*=[[:blank:]]*([[:graph:]]*/)([[:graph:]]+)[[:blank:]]*(.*)$" (("^ *SHELL[[:blank:]]*=[[:blank:]]*([[:graph:]]*/)([[:graph:]]+)(.*)$"
_ dir shell args) _ dir shell args)
(let* ((old (string-append dir shell)) (let* ((old (string-append dir shell))
(new (or (find-shell shell) old))) (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) (format (current-error-port)
"patch-makefile-SHELL: ~a: changing `SHELL' from `~a' to `~a'~%" "patch-makefile-SHELL: ~a: changing `SHELL' from `~a' to `~a'~%"
file old new)) file old new))
(string-append "SHELL = " new " " args)))) (string-append "SHELL = " new args))))
(when keep-mtime? (when keep-mtime?
(set-file-time file st)))) (set-file-time file st))))