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

Refactor processing lint warnings

Browse source 
Extract out a function to make the code slightly easier to read.
This commit is contained in:
Christopher Baines 2020-02-01 10:32:49 +01:00
parent 91249f5ee0
commit ee82c2c71d
1 changed files with 44 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

22
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -247,16 +247,8 @@ WHERE job_id = $1"
',checker-name)) ',checker-name))
%local-checkers)) %local-checkers))
(check (lint-checker-check checker))) (check (lint-checker-check checker)))
(filter
(match-lambda (define (process-lint-warning lint-warning)
((package-id . warnings)
(not (null? warnings))))
(hash-map->list
(lambda (package-id package)
(cons
package-id
(map
(lambda (lint-warning)
(list (list
(match (lint-warning-location lint-warning) (match (lint-warning-location lint-warning)
(($ <location> file line column) (($ <location> file line column)
@ -296,6 +288,16 @@ WHERE job_id = $1"
(list ,@locales)))) (list ,@locales))))
(cons (cons source-locale source-message) (cons (cons source-locale source-message)
messages-by-locale)))) messages-by-locale))))
(filter
(match-lambda
((package-id . warnings)
(not (null? warnings))))
(hash-map->list
(lambda (package-id package)
(cons
package-id
(map process-lint-warning
(check package)))) (check package))))
%package-table))))) %package-table)))))