aboutsummaryrefslogtreecommitdiff
path: root/guix-data-service/model/lint-checker.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix-data-service/model/lint-checker.scm')
-rw-r--r--guix-data-service/model/lint-checker.scm15
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))