[no subject]

[Clément Lassieur]

branch: master
commit dc27cb369c7bc358717e586262fdb2a7d509ff29
Author: Clément Lassieur <address@hidden>
Date:   Sat Aug 4 16:20:59 2018 +0200

    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 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 |