me
/
guix
Archived
1
0
Fork 0
Code

services: configuration: Add '%location'. 

* gnu/services/configuration.scm (define-configuration): Add '%location'.
master
Oleg Pykhalov 2018-12-22 23:30:40 +03:00
parent 41ce92501b
commit d132d9f96b
No known key found for this signature in database
GPG Key ID: 167F8EA5001AFA9C
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gnu/services/configuration.scm
View File

@ -22,6 +22,7 @@
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix records) #:use-module (guix records)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module ((guix utils) #:select (source-properties->location))
#:autoload (texinfo) (texi-fragment->stexi) #:autoload (texinfo) (texi-fragment->stexi)
#:autoload (texinfo serialize) (stexi->texi) #:autoload (texinfo serialize) (stexi->texi)
#:use-module (ice-9 match) #:use-module (ice-9 match)
@ -129,6 +130,10 @@
#,(id #'stem #'% #'stem) #,(id #'stem #'% #'stem)
#,(id #'stem #'make- #'stem) #,(id #'stem #'make- #'stem)
#,(id #'stem #'stem #'?) #,(id #'stem #'stem #'?)
(%location #,(id #'stem #'-location)
(default (and=> (current-source-location)
source-properties->location))
(innate))
(field field-getter (default def)) (field field-getter (default def))
...) ...)
(define #,(id #'stem #'stem #'-fields) (define #,(id #'stem #'stem #'-fields)