diff options
| author | Clément Lassieur <clement@lassieur.org> | 2018-08-04 16:20:59 +0200 |
|---|---|---|
| committer | Clément Lassieur <clement@lassieur.org> | 2018-08-04 16:33:59 +0200 |
| commit | dc27cb369c7bc358717e586262fdb2a7d509ff29 (patch) | |
| tree | bd857aa8c68ab97ea3eb2c2d6c2f3eff1c2c127e | |
| parent | 4c044c658a6f7b40ca78b4d1c56ca225d62c1129 (diff) | |
| download | cuirass-dc27cb369c7bc358717e586262fdb2a7d509ff29.tar cuirass-dc27cb369c7bc358717e586262fdb2a7d509ff29.tar.gz | |
database: Remove unused DB-FORMAT-BUILD procedure.
* src/cuirass/database.scm (db-format-build): Remove it.
| -rw-r--r-- | src/cuirass/database.scm | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index 1a51705..1f86a1d 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 | |