diff options
| author | Mathieu Lirzin <mthl@openmailbox.org> | 2015-09-26 18:47:37 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@openmailbox.org> | 2015-09-28 00:23:12 +0200 |
| commit | cd8b7cfb3f80631049bfb548838209b354222705 (patch) | |
| tree | d639ea5de17d62e986b0831de295cba1b7c77993 | |
| parent | ba7d6c763c6adac4cf26fef656c7f98296601d0b (diff) | |
| download | guix-cd8b7cfb3f80631049bfb548838209b354222705.tar guix-cd8b7cfb3f80631049bfb548838209b354222705.tar.gz | |
lint: Fix 'check-texinfo-markup'.
Fixes a regression introduced in 5d8d8f3.
* guix/scripts/lint.scm (check-description-style): When no exception is
thrown in 'check-texinfo-markup', return the rendered description.
| -rw-r--r-- | guix/scripts/lint.scm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm index 0adb3bf179..3b4ff722e9 100644 --- a/guix/scripts/lint.scm +++ b/guix/scripts/lint.scm @@ -146,11 +146,13 @@ monad." (define (check-texinfo-markup description) "Check that DESCRIPTION can be parsed as a Texinfo fragment. If the markup is valid return a plain-text version of DESCRIPTION, otherwise #f." - (unless (false-if-exception (texi->plain-text description)) - (emit-warning package - (_ "Texinfo markup in description is invalid") - 'description) - #f)) + (catch #t + (lambda () (texi->plain-text description)) + (lambda (keys . args) + (emit-warning package + (_ "Texinfo markup in description is invalid") + 'description) + #f))) (define (check-proper-start description) (unless (or (properly-starts-sentence? description) |