~ruther/guix-local

11459384968f654c42ad7dba4443dada35191f5b — Eric Bavier 11 years ago 6646747
utils: Clean trailing whitespace at end of SHELL

* guix/build/utils.scm (patch-makefile-SHELL): Remove trailing whitespace.
1 files changed, 2 insertions(+), 2 deletions(-)

M guix/build/utils.scm
M guix/build/utils.scm => guix/build/utils.scm +2 -2
@@ 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))))