From f40ac8a535f0084348f6aa17b52f75826f606da2 Mon Sep 17 00:00:00 2001
From: Mathieu Lirzin <mthl@gnu.org>
Date: Tue, 26 Jul 2016 11:06:48 +0200
Subject: [PATCH] database: db-open: Add DB optional argument.

* src/cuirass/database.scm (db-open): Add DB optional argument.
---
 src/cuirass/database.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm
index dbbe00a..09eeef4 100644
--- a/src/cuirass/database.scm
+++ b/src/cuirass/database.scm
@@ -94,10 +94,10 @@ database object."
               (read-sql-file schema))
     db))
 
-(define (db-open)
+(define* (db-open #:optional (db (%package-database)))
   "Open database to store or read jobs and builds informations.  Return a
 database object."
-  (sqlite-open (%package-database) SQLITE_OPEN_READWRITE))
+  (sqlite-open db SQLITE_OPEN_READWRITE))
 
 (define (db-close db)
   "Close database object DB."