From 248871e00667fc5c4b40ab9816ca8d5df47d40d7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Tue, 20 Mar 2018 17:01:41 +0100 Subject: [PATCH] build-system/gnu: Fix typo. * guix/build/gnu-build-system.scm (dump-file-contents): Fix typo in 'string-pad' argument. --- guix/build/gnu-build-system.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 @@ (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)