From dc27cb369c7bc358717e586262fdb2a7d509ff29 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Cl=C3=A9ment=20Lassieur?= <clement@lassieur.org>
Date: Sat, 4 Aug 2018 16:20:59 +0200
Subject: [PATCH] database: Remove unused DB-FORMAT-BUILD procedure.
* src/cuirass/database.scm (db-format-build): Remove it.
---
src/cuirass/database.scm | 17 -----------------
1 file changed, 17 deletions(-)
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm
index 1a51705c..1f86a1d0 100644
--- a/src/cuirass/database.scm
+++ b/src/cuirass/database.scm
@@ -443,23 +443,6 @@ log file for DRV."
(cons `(,name . ((#:path . ,path)))
outputs))))))
-(define (db-format-build db build)
- (match build
- (#(id timestamp starttime stoptime log status derivation job-name system
- nix-name repo-name)
- `((#:id . ,id)
- (#:timestamp . ,timestamp)
- (#:starttime . ,starttime)
- (#:stoptime . ,stoptime)
- (#:log . ,log)
- (#:status . ,status)
- (#:derivation . ,derivation)
- (#:job-name . ,job-name)
- (#:system . ,system)
- (#:nix-name . ,nix-name)
- (#:repo-name . ,repo-name)
- (#:outputs . ,(db-get-outputs db id))))))
-
(define (db-get-builds db filters)
"Retrieve all builds in database DB which are matched by given FILTERS.
FILTERS is an assoc list whose possible keys are 'id | 'jobset | 'job |
--
GitLab