diff options
Diffstat (limited to 'guix-data-service/model/lint-checker.scm')
-rw-r--r-- | guix-data-service/model/lint-checker.scm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/guix-data-service/model/lint-checker.scm b/guix-data-service/model/lint-checker.scm new file mode 100644 index 0000000..6193966 --- /dev/null +++ b/guix-data-service/model/lint-checker.scm @@ -0,0 +1,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)) |