From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp0 ([2001:41d0:2:bcc0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms0.migadu.com with LMTPS id +JuoDiDT3WBlTQAAgWs5BA (envelope-from ) for ; Thu, 01 Jul 2021 16:37:20 +0200 Received: from aspmx1.migadu.com ([2001:41d0:2:bcc0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp0 with LMTPS id kGNrCiDT3WD4fwAA1q6Kng (envelope-from ) for ; Thu, 01 Jul 2021 14:37:20 +0000 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id 80A0CC058 for ; Thu, 1 Jul 2021 16:37:19 +0200 (CEST) Received: from localhost ([::1]:42710 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1lyxoc-0005SD-HB for larch@yhetil.org; Thu, 01 Jul 2021 10:37:18 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:39848) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lyxoP-0005PJ-Sw for guix-patches@gnu.org; Thu, 01 Jul 2021 10:37:05 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:50217) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1lyxoL-0001ij-Tk for guix-patches@gnu.org; Thu, 01 Jul 2021 10:37:03 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1lyxoL-0003YN-JP for guix-patches@gnu.org; Thu, 01 Jul 2021 10:37:01 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#49288] [PATCH] gnu: services: Export provenance-entry and sexp->channel Resent-From: Andrew Tropin Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Thu, 01 Jul 2021 14:37:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 49288 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: Ludovic =?UTF-8?Q?Court=C3=A8s?= , 49288-done@debbugs.gnu.org Cc: 49288@debbugs.gnu.org Received: via spool by 49288-submit@debbugs.gnu.org id=B49288.162515021713649 (code B ref 49288); Thu, 01 Jul 2021 14:37:01 +0000 Received: (at 49288) by debbugs.gnu.org; 1 Jul 2021 14:36:57 +0000 Received: from localhost ([127.0.0.1]:33530 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lyxoG-0003Y0-Nf for submit@debbugs.gnu.org; Thu, 01 Jul 2021 10:36:56 -0400 Received: from mail-lf1-f43.google.com ([209.85.167.43]:46841) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lyxoE-0003Xf-Mv for 49288@debbugs.gnu.org; Thu, 01 Jul 2021 10:36:55 -0400 Received: by mail-lf1-f43.google.com with SMTP id k10so12154696lfv.13 for <49288@debbugs.gnu.org>; Thu, 01 Jul 2021 07:36:54 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=trop-in.20150623.gappssmtp.com; s=20150623; h=from:to:cc:subject:in-reply-to:references:date:message-id :mime-version; bh=IbO5utD/YtwHVcQ5fCr5E4Quabocx9SSpyz6J2TKEQ0=; b=zXn2fEtSgpLyCdPCyt2FKzHGfdLUtmRADmM0C7fR/+FBMM/4DzZNDtW5q5qUO+gwrz w0ytKPAFF3bYHAXR5vIXswVN/qKzKVSgXHhV62bWJkQ7eB1rdmAMiw1EVKsPFluKCIix CLo+4pdJhZfATd5SWalEahL58W8YF+TQjDe+ghZk0g97R6PaqIAnAoo/2IXt8hs+YUO+ E5vjPdc4BNpa2+WbDoC8Bv68VAu4G+3WQDV5L3cjjJ6CZw0TTnwv3d6PHV0FnNZbfadI FOGbuoDHEBWlZsd2wE76Dm3QND6pjjvlselXLDHgU1NJDvvmJVqtpKvbWJxByRi9w/Fg CKMQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:cc:subject:in-reply-to:references:date :message-id:mime-version; bh=IbO5utD/YtwHVcQ5fCr5E4Quabocx9SSpyz6J2TKEQ0=; b=HqokhT+urQkVNShwmhrmoSrS4Iaxzrc4OAfCpi8AI23akOPfBBBBRyBntJTWDGSqOg pzTLx7Dw73FV5eXqSq7IpKK2b9HD0Psv1CLnKm2+umyR4ynKBvIWY5s+ftxflfS3A6NH eZa2ORMJ7CWJvf+ttjrMTQn8dWD2Fo2dVgG9sYKyYpQu5/Wi3PQqnvRvW2VoKl1/GNiD T8Ok8kDOFjaE+H4FtV9A5Ct1rVzuCJz0bOKwWz7Ps0O4HGxqfnswooY5cGNnUnLuEvet mGApPlx0kBHLu+URcBwZNAp/Yjq6YIVzPzkh9aJW6YklA01aNvs0LvosVSz/8yWb3F6o YxlQ== X-Gm-Message-State: AOAM530cpOvBvRq6CFY8brukFs3juCuwzvygHIlC30nT+gY0HVZmqbr8 Drzec0HMZxh2Dv3PRbOZVoldfwnl5osi9Q== X-Google-Smtp-Source: ABdhPJw6GVeZzDvvUfI82QcCWwvDIlZy1V198w5qFdpE4SwvT+c+AdIvsUKpYwphoKcbYYK0NSKQ1w== X-Received: by 2002:a05:6512:69:: with SMTP id i9mr15249210lfo.615.1625150208487; Thu, 01 Jul 2021 07:36:48 -0700 (PDT) Received: from ixy ([109.252.117.164]) by smtp.gmail.com with ESMTPSA id u5sm2232343lfg.268.2021.07.01.07.36.47 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Thu, 01 Jul 2021 07:36:47 -0700 (PDT) From: Andrew Tropin In-Reply-To: <877diakve4.fsf@gnu.org> References: <871r8j4rer.fsf@trop.in> <877diakve4.fsf@gnu.org> Date: Thu, 01 Jul 2021 17:36:45 +0300 Message-ID: <87lf6q3xtu.fsf@trop.in> MIME-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha512; protocol="application/pgp-signature" X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+larch=yhetil.org@gnu.org Sender: "Guix-patches" X-Migadu-Flow: FLOW_IN ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1625150240; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-type:content-type:resent-cc:resent-from:resent-sender: resent-message-id:in-reply-to:in-reply-to:references:references: list-id:list-help:list-unsubscribe:list-subscribe:list-post: dkim-signature; bh=IbO5utD/YtwHVcQ5fCr5E4Quabocx9SSpyz6J2TKEQ0=; b=Mc2xflXSQTSSPopnLnTh2OPqQZ8oRDpFBBJjhcTYRBwaycXfG/Rl/ocUcylzLnTrnpBREZ I2vf3imcmGLkmg2LTwqL3g6rlp3xb6/sbQOebAnJoY/t1awSXN13f6DV5IOVIwpQlQRePD 1NOBtZV8hoOnwKNgvqyDa4VmKfTBcYtuC7wIobyQrAe5YMgr7Z61Rr7GqmwapHry1CPehu YASqeofugAdqtCARu/sZygoG0E8zbC8g03Ytoee0+z8bpXmvoqLjeKklUVSoA2397MxtF2 YhDdnnAzjP5T58ph5TAH3iDPGtL5dlmDS2Iis3pSdhA9RncGWwbATS7gjENSvw== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1625150240; a=rsa-sha256; cv=none; b=LS3Xhg2/0q2neTzGHreEsHaVGw7AsrPLe2RNo461P4Y5OLFRGujk7sL5Y0AAjz0Kefa8JL LeJefvRvS1ZGTOxJlEXGQFBvaXdAERuo5t9kSoD7cAIXp1cfE+NVsTRoAGTS+iVPGFoofd dDqChGF+eQTxcAt3m5MtQBB8HtI13yCDlxuidGbJyFE5HHszvKJEFD6SblUROJEthIja0s kkSwtzL/LgZ9pDqXg4muUZFOLBFq3K72vbtKGLVCF4FC8hzIqS2Hg8DYIV97uhIJ7xWbcj Dq3lLJYWrMJ1A68PaAO8Pu7CylEEqqgqh0TUFAbfph12Pdnijc06PWly94aSKg== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=trop-in.20150623.gappssmtp.com header.s=20150623 header.b=zXn2fEtS; dmarc=none; spf=pass (aspmx1.migadu.com: domain of guix-patches-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=guix-patches-bounces@gnu.org X-Migadu-Spam-Score: -3.52 Authentication-Results: aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=trop-in.20150623.gappssmtp.com header.s=20150623 header.b=zXn2fEtS; dmarc=none; spf=pass (aspmx1.migadu.com: domain of guix-patches-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=guix-patches-bounces@gnu.org X-Migadu-Queue-Id: 80A0CC058 X-Spam-Score: -3.52 X-Migadu-Scanner: scn0.migadu.com X-TUID: g+jzujnnqJOI --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Ludovic Court=C3=A8s writes: > Hi! > > Andrew Tropin skribis: > >> These functions are need for Guix Home. >> --- >> For now functions are copy pasted, but it seems better to reuse >> existing functions. >> https://git.sr.ht/~abcdw/rde/tree/057888b2604b05d555fd1b67f3d356644f9a1= 34d/gnu/home-services.scm#L418 >>=20=20 >> gnu/services.scm | 3 +++ >> 1 file changed, 3 insertions(+) >> >> diff --git a/gnu/services.scm b/gnu/services.scm >> index 8d413e198e..53b358c63b 100644 >> --- a/gnu/services.scm >> +++ b/gnu/services.scm >> @@ -91,6 +91,9 @@ >> ambiguous-target-service-error-service >> ambiguous-target-service-error-target-type >>=20=20 >> + provenance-entry >> + sexp->channel > > This =E2=80=98sexp->channel=E2=80=99 exists =E2=80=9Cfor historical reaso= ns=E2=80=9D. Could you use > (@ (guix channels) sexp->channel) instead, together with > =E2=80=98channel-instance->sexp=E2=80=99? Sure!) > Actually, could you define it like so: > > --8<---------------cut here---------------start------------->8--- > (define home-provenance-service-type > (service-type > (inherit provenance-service-type) > (extensions > (list (service-extension > home-service-type > (service-extension-compute > (first (service-extensions provenance-service-type)))))) > (default-value #f))) > --8<---------------cut here---------------end--------------->8--- Looks good to me. > More generally, perhaps you could have a procedure that takes a service > type and =E2=80=9Crewires=E2=80=9D it so that it extends =E2=80=98home-se= rvice-type=E2=80=99 instead of > =E2=80=98etc-service-type=E2=80=99, say. Does that make sense? Thank you for the idea, it can be useful, I'll consider it. --=-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQJDBAEBCgAtFiEEKEGaxlA4dEDH6S/6IgjSCVjB3rAFAmDd0v0PHGFuZHJld0B0 cm9wLmluAAoJECII0glYwd6wmbkP/RVQH/aD1uQl+eWYZr2k+3u+jaD8yy/3xxyJ pos0YIHPWIa1/qtSMODNAMfVHOpPjNOh5wVCzvXQ08KCsG5wrmA6+lY3qY0paxM5 xnfGruDM53jmzgwnir52K2B59rUhIir/xA+/DrTwfyZeqB9AF9kUAW9Y9rN0XQvH dN/lSNXV7Sg50hxMoQlzVgBBBPwaSu1XKZGU3ZcRASG0Eb2S+ww+qrnWJcBSNtP2 1tiCAYRzuGQ6mbWbjG3DAPN5xyCFZ2cW+9cdDfftix60RYxAKVzmv8itMLd+HEfG SKdwbz2PVWOqZMILgbUXKvoJaLHm5nzeeE8NWkDxcEDC+WXv524LUoGvOE7hZbKx kTKWHeSYR7ehFb1kDKQKkE7WKgpBTL25zHy4xSeSRUTGv5gjCBIvlzpwBZYtrEy9 uwjUI1HS9gV8pIkNielQhIR7/iJapgb5sDI20B6DA4HItxJrPVStr2o9cETT4V7/ wVdhXtbuqfCIQtUKrZ4+pa5DGWGGwWQ3ctzxHRMKZ1NsVN2yzrcxKtVAtXDailz9 61ecPo7M7Q/ZCAu7Ah9VjQkSuwK/leuC19pFaP1PsOGeWKNB2K8Wu5bETjfw/UaQ +yonq9/V4w77ZB/ORt5TwgrdyM4fQJk/w0M+iGoO6RIdw9eb96Vmm+YdPN6s4Lnb ma5Lvmtg =0zkn -----END PGP SIGNATURE----- --=-=-=--