From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:47434) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gao72-0002Qp-Bt for guix-patches@gnu.org; Sat, 22 Dec 2018 15:43:08 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gao6w-0006hb-8f for guix-patches@gnu.org; Sat, 22 Dec 2018 15:43:06 -0500 Received: from debbugs.gnu.org ([208.118.235.43]:55992) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1gao6w-0006hQ-4x for guix-patches@gnu.org; Sat, 22 Dec 2018 15:43:02 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1gao6v-0003CN-Uc for guix-patches@gnu.org; Sat, 22 Dec 2018 15:43:01 -0500 Subject: [bug#33836] [PATCH 1/2] services: configuration: Add location. References: <20181222203857.26964-1-go.wigust@gmail.com> In-Reply-To: <20181222203857.26964-1-go.wigust@gmail.com> Resent-Message-ID: From: Oleg Pykhalov Date: Sat, 22 Dec 2018 23:42:06 +0300 Message-Id: <20181222204207.28505-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 707944cbe..9775f91ff 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 configuration-location + (default (and=> (current-source-location) + source-properties->location)) + (innate)) (field field-getter (default def)) ...) (define #,(id #'stem #'stem #'-fields) -- 2.20.1