branch: master commit 7be12b9b0f20480720519b968a435ab9453ae527 Author: Danny Milosavljevic <dan...@scratchpost.org> Date: Mon Feb 19 22:27:44 2018 +0100
database: db-get-builds: Remove debugging output. * src/cuirass/database.scm (db-get-builds): Remove debugging output. (db-get-build): Remove debugging output. --- src/cuirass/database.scm | 9 --------- 1 file changed, 9 deletions(-) diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index c07cf1b..df31122 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -486,11 +486,6 @@ AND (:system IS NULL OR (:system = Derivations.system)) \ AND (:status IS NULL OR (:status = 'done' AND Builds.status >= 0) OR (:status = 'pending' AND Builds.status < 0)) \ ORDER BY ~a ~a, Builds.id ASC LIMIT :nr;" order-column-name order)) (stmt (sqlite-prepare db stmt-text #:cache? #t))) - (write "ID") - (write filters) - (write (assqx-ref filters 'id)) - (newline) - (force-output) (sqlite-bind-arguments stmt #:id (assqx-ref filters 'id) #:project (assqx-ref filters 'project) #:jobset (assqx-ref filters 'jobset) @@ -506,10 +501,6 @@ ORDER BY ~a ~a, Builds.id ASC LIMIT :nr;" order-column-name order)) (define (db-get-build db id) "Retrieve a build in database DB which corresponds to ID." - (write "XXX") - (write (db-get-builds db `((id ,id)))) - (newline) - (force-output) (match (db-get-builds db `((id ,id))) ((build) build)