diff options
| author | Mark H Weaver <mhw@netris.org> | 2014-09-13 19:48:47 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2014-09-13 19:48:47 -0400 |
| commit | 9fac9e3be3925713c20f1d5ff8b35353af10baa2 (patch) | |
| tree | 9add6e882007184cc420b2e26d620de0982d934a /build-aux/sync-descriptions.scm | |
| parent | 9d77da2a47ddb707edcbd1ca17f5c0ac3c068b04 (diff) | |
| parent | d7ab698a620873c11103fa2bd082884f0198723a (diff) | |
| download | guix-9fac9e3be3925713c20f1d5ff8b35353af10baa2.tar guix-9fac9e3be3925713c20f1d5ff8b35353af10baa2.tar.gz | |
Merge branch 'master' into core-updates
Conflicts:
gnu-system.am
Diffstat (limited to 'build-aux/sync-descriptions.scm')
| -rw-r--r-- | build-aux/sync-descriptions.scm | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/build-aux/sync-descriptions.scm b/build-aux/sync-descriptions.scm index 61362a1f88..6ff549c309 100644 --- a/build-aux/sync-descriptions.scm +++ b/build-aux/sync-descriptions.scm @@ -47,6 +47,16 @@ result)) '()))) +(define (escape-quotes str) + "Replace any quote character in STR by an escaped quote character." + (list->string + (string-fold-right (lambda (chr result) + (match chr + (#\" (cons* #\\ #\"result)) + (_ (cons chr result)))) + '() + str))) + ;; Iterate over GNU packages. Report those whose synopsis defers from that ;; found upstream. (for-each (match-lambda @@ -69,7 +79,7 @@ (not (string=? (fill-paragraph upstream 100) (fill-paragraph downstream 100)))) (format (guix-warning-port) - "~a: ~a: proposed description:~% ~a~%" + "~a: ~a: proposed description:~% \"~a\"~%" (location->string loc) (package-name package) - (fill-paragraph upstream 77 7)))))) + (fill-paragraph (escape-quotes upstream) 77 7)))))) gnus) |