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

services: cgit: Enforce serialization order.

Browse source 
* gnu/services/cgit.scm (serialize-cgit-configuration): New procedure that
serializes fields with a precise order.
(cgit-activation): Replace the generic SERIALIZE-CONFIGURATION with
SERIALIZE-CGIT-CONFIGURATION.
This commit is contained in:
Clément Lassieur 2018-03-20 21:05:09 +01:00
parent ad05e96e14
commit 80b76b9350
No known key found for this signature in database
GPG key ID: 89F96D4808F359C7
1 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
gnu/services/cgit.scm
View file

@ -631,6 +631,19 @@ (define-configuration cgit-configuration
(list '())
"Extra options will be appended to cgitrc file."))
;; This distinguishes fields whose order matters, and makes sure further
;; changes won't inadvertently change the order.
(define (serialize-cgit-configuration config)
(define (rest? field)
(not (memq (configuration-field-name field)
'(repositories))))
#~(string-append
#$(let ((rest (filter rest? cgit-configuration-fields)))
(serialize-configuration config rest))
#$(serialize-repository-cgit-configuration-list
'repositories
(cgit-configuration-repositories config))))
(define-configuration opaque-cgit-configuration
(cgit
(package cgit)
@ -651,7 +664,7 @@ (define (cgit-activation config)
(config-str
(if opaque-config?
(opaque-cgit-configuration-cgitrc config)
(serialize-configuration config cgit-configuration-fields))))
(serialize-cgit-configuration config))))
#~(begin
(use-modules (guix build utils))
(mkdir-p #$(if opaque-config?