diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-09-19 13:31:06 +0900 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-09-19 23:11:19 +0900 |
| commit | 71654dfdda4890d7a663a36a7fe754b53591aba6 (patch) | |
| tree | fda1be459091f59487413a53b791bdd68cbb46c8 /gnu | |
| parent | bf307a7a54eeca405e5c6ad50a9cbe6b9e10190d (diff) | |
| download | patches-71654dfdda4890d7a663a36a7fe754b53591aba6.tar patches-71654dfdda4890d7a663a36a7fe754b53591aba6.tar.gz | |
services: Add 'simple-service'.
* gnu/services.scm (simple-service): New procedure.
* doc/guix.texi (Service Reference): Document it.
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/services.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gnu/services.scm b/gnu/services.scm index 5479bfae19..7e322c50b0 100644 --- a/gnu/services.scm +++ b/gnu/services.scm @@ -50,6 +50,7 @@ service-kind service-parameters + simple-service modify-services service-back-edges fold-services @@ -141,6 +142,13 @@ (type service-kind) (parameters service-parameters)) +(define (simple-service name target value) + "Return a service that extends TARGET with VALUE. This works by creating a +singleton service type NAME, of which the returned service is an instance." + (let* ((extension (service-extension target identity)) + (type (service-type (name name) + (extensions (list extension))))) + (service type value))) (define-syntax %modify-service (syntax-rules (=>) |