[no subject]

[Danny Milosavljevic]

branch: master
commit 7be12b9b0f20480720519b968a435ab9453ae527
Author: Danny Milosavljevic <address@hidden>
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)