TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

services: 'fold-service-types' honors its seed.

Browse source 
* gnu/services.scm (fold-service-types): Use SEED instead of '().
This commit is contained in:
Ludovic Courtès 2017-11-08 13:24:24 +01:00
parent 23735137eb
commit a3d37f3ae5
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gnu/services.scm
View file

@ -184,7 +184,7 @@ (define* (fold-service-types proc seed
(if (service-type? object) (if (service-type? object)
(proc object result) (proc object result)
result)) result))
'() seed
modules)) modules))
;; Services of a given type. ;; Services of a given type.