utils: Clean trailing whitespace at end of SHELL
* guix/build/utils.scm (patch-makefile-SHELL): Remove trailing whitespace.
This commit is contained in:
parent
6646747c02
commit
1145938496
|
@ -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))))
|
||||||
|
|
Loading…
Reference in New Issue