From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([209.51.188.92]:55278) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gzUNP-000689-S9 for guix-patches@gnu.org; Thu, 28 Feb 2019 17:42:04 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gzUNP-0006mN-6y for guix-patches@gnu.org; Thu, 28 Feb 2019 17:42:03 -0500 Received: from debbugs.gnu.org ([209.51.188.43]:42074) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1gzUNP-0006m9-1C for guix-patches@gnu.org; Thu, 28 Feb 2019 17:42:03 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1gzUNO-0002h6-K8 for guix-patches@gnu.org; Thu, 28 Feb 2019 17:42:02 -0500 Subject: [bug#33836] [PATCH 1/2] services: configuration: Add '%location'. Resent-Message-ID: From: Oleg Pykhalov Date: Fri, 1 Mar 2019 01:40:00 +0300 Message-Id: <20190228224001.27182-2-go.wigust@gmail.com> In-Reply-To: <20190228224001.27182-1-go.wigust@gmail.com> References: <87k1i0itaj.fsf@gnu.org> <20190228224001.27182-1-go.wigust@gmail.com> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 33836@debbugs.gnu.org * gnu/services/configuration.scm (define-configuration): Add '%location'. --- gnu/services/configuration.scm | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/gnu/services/configuration.scm b/gnu/services/configuration.scm index 707944cbe0..90f12a8d39 100644 --- a/gnu/services/configuration.scm +++ b/gnu/services/configuration.scm @@ -22,6 +22,7 @@ #:use-module (guix packages) #:use-module (guix records) #:use-module (guix gexp) + #:use-module ((guix utils) #:select (source-properties->location)) #:autoload (texinfo) (texi-fragment->stexi) #:autoload (texinfo serialize) (stexi->texi) #:use-module (ice-9 match) @@ -129,6 +130,10 @@ #,(id #'stem #'% #'stem) #,(id #'stem #'make- #'stem) #,(id #'stem #'stem #'?) + (%location #,(id #'stem #'-location) + (default (and=> (current-source-location) + source-properties->location)) + (innate)) (field field-getter (default def)) ...) (define #,(id #'stem #'stem #'-fields) -- 2.20.1