summaryrefslogtreecommitdiff
path: root/guix/build/gnu-build-system.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-03-20 17:01:41 +0100
committerLudovic Courtès <ludo@gnu.org>2018-03-20 17:01:41 +0100
commit248871e00667fc5c4b40ab9816ca8d5df47d40d7 (patch)
tree0e7101e40c64d456885eae47d26202b6fca7a4ff /guix/build/gnu-build-system.scm
parent88b87c352f61a576f4a764774636adc056811624 (diff)
downloadguix-patches-248871e00667fc5c4b40ab9816ca8d5df47d40d7.tar
guix-patches-248871e00667fc5c4b40ab9816ca8d5df47d40d7.tar.gz
build-system/gnu: Fix typo.
* guix/build/gnu-build-system.scm (dump-file-contents): Fix typo in 'string-pad' argument.
Diffstat (limited to 'guix/build/gnu-build-system.scm')
-rw-r--r--guix/build/gnu-build-system.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm
index 2c0f60c9ba..a39a884852 100644
--- a/guix/build/gnu-build-system.scm
+++ b/guix/build/gnu-build-system.scm
@@ -342,7 +342,7 @@ makefiles."
(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)