build-system/gnu: Fix typo.

* guix/build/gnu-build-system.scm (dump-file-contents): Fix typo in
'string-pad' argument.
This commit is contained in:
Ludovic Courtès 2018-03-20 17:01:41 +01:00
parent 88b87c352f
commit 248871e006
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -342,7 +342,7 @@ (define* (dump-file-contents directory file-regexp
(define (dump file)
(let ((prefix (string-append "\n--- " file " ")))
(display (if (< (string-length prefix) 78)
(string-pad-right prefix 78 #\---)
(string-pad-right prefix 78 #\-)
prefix)
port)
(display "\n\n" port)