branch master updated: services: cuirass: Add queue-size option.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 770fb65  services: cuirass: Add queue-size option.
770fb65 is described below

commit 770fb659a62d8adab9a4ba7b44e2760722703879
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Tue Dec 8 11:53:25 2020 +0100

    services: cuirass: Add queue-size option.
    
    * gnu/services/cuirass.scm (<cuirass-configuration>): Add "queue-size" 
field.
    (cuirass-shepherd-service): Honor it.
    * doc/guix.texi (Continuous Integration): Document it.
---
 doc/guix.texi            | 3 +++
 gnu/services/cuirass.scm | 4 ++++
 2 files changed, 7 insertions(+)

diff --git a/doc/guix.texi b/doc/guix.texi
index fc57f4f..0e647a2 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -25695,6 +25695,9 @@ Owner's group of the @code{cuirass} process.
 Number of seconds between the poll of the repositories followed by the
 Cuirass jobs.
 
+@item @code{queue-size} (default: @code{1})
+Size of the database writer queue.
+
 @item @code{database} (default: @code{"/var/lib/cuirass/cuirass.db"})
 Location of sqlite database which contains the build results and previously
 added specifications.
diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm
index a50f583..7706ed4 100644
--- a/gnu/services/cuirass.scm
+++ b/gnu/services/cuirass.scm
@@ -69,6 +69,8 @@
                     (default "cuirass"))
   (interval         cuirass-configuration-interval ;integer (seconds)
                     (default 60))
+  (queue-size       cuirass-configuration-queue-size
+                    (default 1))
   (database         cuirass-configuration-database ;string (file-name)
                     (default "/var/lib/cuirass/cuirass.db"))
   (port             cuirass-configuration-port ;integer (port)
@@ -98,6 +100,7 @@
         (user             (cuirass-configuration-user config))
         (group            (cuirass-configuration-group config))
         (interval         (cuirass-configuration-interval config))
+        (queue-size       (cuirass-configuration-queue-size config))
         (database         (cuirass-configuration-database config))
         (ttl              (cuirass-configuration-ttl config))
         (port             (cuirass-configuration-port config))
@@ -119,6 +122,7 @@
                            "--database" #$database
                            "--ttl" #$(string-append (number->string ttl) "s")
                            "--interval" #$(number->string interval)
+                           "--queue-size" #$(number->string queue-size)
                            #$@(if queries-log-file
                                   (list (string-append "--log-queries="
                                                        queries-log-file))