From mboxrd@z Thu Jan 1 00:00:00 1970 From: Christopher Baines Subject: [PATCH 1/2] database: Don't return rowid from db-add-input. Date: Fri, 24 Jan 2020 20:05:25 +0000 Message-ID: <20200124200526.1633-1-mail@cbaines.net> Mime-Version: 1.0 Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:470:142:3::10]:38400) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1iv5Ct-0004DM-7H for guix-devel@gnu.org; Fri, 24 Jan 2020 15:05:32 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1iv5Cs-000237-5L for guix-devel@gnu.org; Fri, 24 Jan 2020 15:05:30 -0500 Received: from mira.cbaines.net ([2a01:7e00::f03c:91ff:fe69:8da9]:34186) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1iv5Cs-00022L-0I for guix-devel@gnu.org; Fri, 24 Jan 2020 15:05:30 -0500 Received: from localhost (unknown [46.237.162.0]) by mira.cbaines.net (Postfix) with ESMTPSA id BE44617B3E for ; Fri, 24 Jan 2020 20:05:28 +0000 (GMT) Received: from localhost (localhost [local]) by localhost (OpenSMTPD) with ESMTPA id dc1f9b19 for ; Fri, 24 Jan 2020 20:05:26 +0000 (UTC) List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane-mx.org@gnu.org Sender: "Guix-devel" To: guix-devel@gnu.org As it is unused from where db-add-input is called. * src/cuirass/database.scm (db-add-input): Don't call and return (last-insert-rowid). --- src/cuirass/database.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index 308b5c3..1643916 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -303,8 +303,7 @@ tag, revision, no_compile_p) VALUES (" (assq-ref input #:branch) ", " (assq-ref input #:tag) ", " (assq-ref input #:commit) ", " - (if (assq-ref input #:no-compile?) 1 0) ");") - (last-insert-rowid db))) + (if (assq-ref input #:no-compile?) 1 0) ");"))) =20 (define (db-add-checkout spec-name eval-id checkout) "Insert CHECKOUT associated with SPEC-NAME and EVAL-ID. If a checkout= with --=20 2.24.1