me
/
guix
Archived
1
0
Fork 0
Code

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.
master
Mathieu Lirzin 2015-09-26 18:47:37 +02:00
parent ba7d6c763c
commit cd8b7cfb3f
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
guix/scripts/lint.scm
View File

@ -146,11 +146,13 @@ monad."
(define (check-texinfo-markup description) (define (check-texinfo-markup description)
"Check that DESCRIPTION can be parsed as a Texinfo fragment. If the "Check that DESCRIPTION can be parsed as a Texinfo fragment. If the
markup is valid return a plain-text version of DESCRIPTION, otherwise #f." markup is valid return a plain-text version of DESCRIPTION, otherwise #f."
(unless (false-if-exception (texi->plain-text description)) (catch #t
(emit-warning package (lambda () (texi->plain-text description))
(_ "Texinfo markup in description is invalid") (lambda (keys . args)
'description) (emit-warning package
#f)) (_ "Texinfo markup in description is invalid")
'description)
#f)))
(define (check-proper-start description) (define (check-proper-start description)
(unless (or (properly-starts-sentence? description) (unless (or (properly-starts-sentence? description)