05/05: services: cuirass: Remove 'cuirass-service' procedure.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 231eddc88ae1f459024f410c5fee48c0a2003bec
Author: Ludovic Courtès <address@hidden>
Date:   Sun Jan 1 23:11:25 2017 +0100

    services: cuirass: Remove 'cuirass-service' procedure.
    
    * gnu/services/cuirass.scm (<cuirass-configuration>)[specifications]:
    Remove default value.
    (cuirass-service): Remove.
    * doc/guix.texi (Continuous Integration): Adjust accordingly.
---
 doc/guix.texi            |   30 +++++++++++++-----------------
 gnu/services/cuirass.scm |   10 +++-------
 2 files changed, 16 insertions(+), 24 deletions(-)

diff --git a/doc/guix.texi b/doc/guix.texi
index 45657ed..8c65f44 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -12011,21 +12011,16 @@ providing substitutes to others (@pxref{Substitutes}).
 
 The @code{(gnu services cuirass)} module provides the following service.
 
address@hidden {Scheme Procedure} cuirass-service @
-       [#:config @code{(cuirass-configuration)}]
-Return a service that runs @command{cuirass}.
-
-The @var{#:config} keyword argument specifies the configuration for
address@hidden, which must be a @code{<cuirass-configuration>}
-object, by default it doesn't provide any build job.  If you want to
-provide your own configuration you will most likely use the
address@hidden special form which returns such objects.
address@hidden deffn
address@hidden {Scheme Procedure} cuirass-service-type
+The type of the Cuirass service.  Its value must be a
address@hidden object, as described below.
address@hidden defvr
 
-In order to add build jobs you will have to set the
address@hidden field.  Here is an example of a cuirass service
-defining a build job based on a specification that can be found in
-Cuirass source tree.
+To add build jobs, you have to set the @code{specifications} field of
+the configuration.  Here is an example of a service defining a build job
+based on a specification that can be found in Cuirass source tree.  This
+service polls the Guix repository and builds a subset of the Guix
+packages, as prescribed in the @file{gnu-system.scm} example spec:
 
 @example
 (let ((spec #~((#:name . "guix")
@@ -12042,11 +12037,12 @@ Cuirass source tree.
                (#:proc . hydra-jobs)
                (#:arguments (subset . "hello"))
                (#:branch . "master"))))
-  (cuirass-service #:config (cuirass-configuration
-                             (specifications #~(list #$spec)))))
+  (service cuirass-service-type
+           (cuirass-configuration
+            (specifications #~(list #$spec)))))
 @end example
 
-While information related to build jobs are located directly in the
+While information related to build jobs is located directly in the
 specifications, global settings for the @command{cuirass} process are
 accessible in other @code{cuirass-configuration} fields.
 
diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm
index 4dc802f..c15a846 100644
--- a/gnu/services/cuirass.scm
+++ b/gnu/services/cuirass.scm
@@ -30,8 +30,7 @@
             cuirass-configuration
             cuirass-configuration?
 
-            cuirass-service-type
-            cuirass-service))
+            cuirass-service-type))
 
 ;;;; Commentary:
 ;;;
@@ -57,8 +56,8 @@
                     (default 60))
   (database         cuirass-configuration-database ;string (file-name)
                     (default "/var/run/cuirass/cuirass.db"))
-  (specifications   cuirass-configuration-specifications
-                    (default #~'())) ;gexp that evaluates to 
specification-alist
+  (specifications   cuirass-configuration-specifications)
+                                  ;gexp that evaluates to specification-alist
   (use-substitutes? cuirass-configuration-use-substitutes? ;boolean
                     (default #f))
   (one-shot?        cuirass-configuration-one-shot? ;boolean
@@ -140,6 +139,3 @@
      (service-extension shepherd-root-service-type cuirass-shepherd-service)
      (service-extension account-service-type cuirass-account)))))
 
-(define* (cuirass-service #:key (config (cuirass-configuration)))
-  "Return a service that runs cuirass according to CONFIG."
-  (service cuirass-service-type config))