blob: 6193966ad8c78b70e3740f0ad026da0d44397476 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(define-module (guix-data-service model lint-checker)
#:use-module (srfi srfi-1)
#:use-module (ice-9 match)
#:use-module (guix-data-service model utils)
#:export (lint-checkers->lint-checker-ids))
(define (lint-checkers->lint-checker-ids conn lint-checkers-data)
(insert-missing-data-and-return-all-ids
conn
"lint_checkers"
`((name . ,(lambda (value)
(quote-string (symbol->string value))))
(description . ,quote-string)
(network_dependent . ,value->sql-boolean))
lint-checkers-data))
|