From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:50500) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dVClf-0008UJ-0f for guix-patches@gnu.org; Wed, 12 Jul 2017 04:13:07 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dVCla-0001XB-1y for guix-patches@gnu.org; Wed, 12 Jul 2017 04:13:06 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:60239) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1dVClZ-0001Wz-UO for guix-patches@gnu.org; Wed, 12 Jul 2017 04:13:01 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1dVClZ-0005nZ-PD for guix-patches@gnu.org; Wed, 12 Jul 2017 04:13:01 -0400 Subject: [bug#27663] [PATCH] database: Fix typo. Resent-Message-ID: Received: from eggs.gnu.org ([2001:4830:134:3::10]:50181) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dVCky-00089c-9r for guix-patches@gnu.org; Wed, 12 Jul 2017 04:12:29 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dVCkt-0001F2-Aa for guix-patches@gnu.org; Wed, 12 Jul 2017 04:12:24 -0400 Received: from mail-wr0-f169.google.com ([209.85.128.169]:34608) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1dVCkt-0001Eq-4a for guix-patches@gnu.org; Wed, 12 Jul 2017 04:12:19 -0400 Received: by mail-wr0-f169.google.com with SMTP id 77so22752384wrb.1 for ; Wed, 12 Jul 2017 01:12:19 -0700 (PDT) From: Mathieu Othacehe Date: Wed, 12 Jul 2017 10:11:11 +0200 Message-Id: <20170712081112.22783-1-m.othacehe@gmail.com> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 27663@debbugs.gnu.org * src/cuirass/database.scm (db-get-stamp, db-add-stamp): Replace #:id by #:name. There is no #:id in specifications. Plus, the primary key of Specifications is #:name. --- src/cuirass/database.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index 1ced411..804b8c2 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -195,7 +195,7 @@ INSERT INTO Builds (derivation, evaluation, log, output)\ (define (db-get-stamp db spec) "Return a stamp corresponding to specification SPEC in database DB." (let ((res (sqlite-exec db "SELECT * FROM Stamps WHERE specification='~A';" - (assq-ref spec #:id)))) + (assq-ref spec #:name)))) (match res (() "") ((#(spec commit)) commit)))) @@ -205,9 +205,9 @@ INSERT INTO Builds (derivation, evaluation, log, output)\ (if (string-null? (db-get-stamp db spec)) (sqlite-exec db "\ INSERT INTO Stamps (specification, stamp) VALUES ('~A', '~A');" - (assq-ref spec #:id) + (assq-ref spec #:name) commit) (sqlite-exec db "\ UPDATE Stamps SET stamp='~A' WHERE specification='~A';" commit - (assq-ref spec #:id)))) + (assq-ref spec #:name)))) -- 2.13.1