cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Handle #f package descriptions

Browse source 
One was added in e81cf4e79a6e297db0ae2a9c39eab495e7e204f0.
This commit is contained in:
Christopher Baines 2021-08-09 09:43:03 +01:00
parent 5cefa250d8
commit 52094f5f19
1 changed files with 29 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

53
guix-data-service/model/package-metadata.scm
View file

@ -237,7 +237,8 @@ WHERE packages.id IN (
(source-description
(begin
(setlocale LC_MESSAGES source-locale)
(P_ (package-description package))))
(and=> (package-description package)
P_)))
(synopsis-by-locale
(filter-map
(lambda (locale)
@ -258,29 +259,33 @@ WHERE packages.id IN (
(cons locale synopsis))))
(list ,@locales)))
(descriptions-by-locale
(filter-map
(lambda (locale)
(catch 'system-error
(lambda ()
(setlocale LC_MESSAGES locale))
(lambda (key . args)
(error
(simple-format
#f
"error changing locale to ~A: ~A ~A"
locale key args))))
(let ((description
(P_ (package-description package))))
(setlocale LC_MESSAGES source-locale)
(if (string=? description source-description)
#f
(cons locale description))))
(list ,@locales))))
(cons
(cons (cons source-locale source-description)
descriptions-by-locale)
(cons (cons source-locale source-synopsis)
synopsis-by-locale))))
(if (string? source-description)
(filter-map
(lambda (locale)
(catch 'system-error
(lambda ()
(setlocale LC_MESSAGES locale))
(lambda (key . args)
(error
(simple-format
#f
"error changing locale to ~A: ~A ~A"
locale key args))))
(let ((description
(P_ (package-description package))))
(setlocale LC_MESSAGES source-locale)
(if (string=? description source-description)
#f
(cons locale description))))
(list ,@locales))
;; Could be #f
'())))
(cons
;; Pretend that #f descriptions are ""
(cons (cons source-locale (or source-description ""))
descriptions-by-locale)
(cons (cons source-locale source-synopsis)
synopsis-by-locale))))
(inferior-eval (translate (inferior-package-id inferior-package)) inferior))