From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp2.migadu.com ([2001:41d0:303:e224::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms1.migadu.com with LMTPS id mPlBHb4rU2Ye+gAAe85BDQ:P1 (envelope-from ) for ; Sun, 26 May 2024 14:31:58 +0200 Received: from aspmx1.migadu.com ([2001:41d0:303:e224::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp2.migadu.com with LMTPS id mPlBHb4rU2Ye+gAAe85BDQ (envelope-from ) for ; Sun, 26 May 2024 14:31:58 +0200 X-Envelope-To: larch@yhetil.org Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=marekpasnikowski.pl header.s=dkim header.b=ClqEoOik; dmarc=pass (policy=reject) header.from=marekpasnikowski.pl; spf=pass (aspmx1.migadu.com: domain of "help-guix-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="help-guix-bounces+larch=yhetil.org@gnu.org" ARC-Seal: i=1; s=key1; d=yhetil.org; t=1716726718; a=rsa-sha256; cv=none; b=ofkJzO2j/bUZxmFkZFwBcJM7lND0FwgkLAcZdv2wa6ZilSO2yu5T6xGp+eDB3TU0fBFFMA liinTOkaAlogpp1AtXdbAKDc55ssGauUAG7aVyezSHDcDvQQ49iR/AJH2uxqCNby6+mNbo MMOH36fGAs4IztHrNjo7ClpFt8zG4nnfXcj5HUb9rFSWYbJnwNatFxoAHXMxtnwz6A0Q6j Wdy/t/k0vvtktb+qNzfddTrD1zKfVvbxG24EbZvx+n9HDG2xQ4aa1ORywbA/xBXL2DpLhV AmeSqhgI6mgqTjvvUXP3YTPXgi/nYKIWoY94Rc+5NK30vDHOnBUOeeCZUUuiag== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=pass header.d=marekpasnikowski.pl header.s=dkim header.b=ClqEoOik; dmarc=pass (policy=reject) header.from=marekpasnikowski.pl; spf=pass (aspmx1.migadu.com: domain of "help-guix-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="help-guix-bounces+larch=yhetil.org@gnu.org" ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1716726718; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:mime-version:mime-version: content-type:content-type:in-reply-to:in-reply-to: references:references:list-id:list-help:list-unsubscribe: list-subscribe:list-post:dkim-signature:autocrypt:autocrypt; bh=DL9TdZaWqpYXiEWGPcr6gixSKP1tehzzUNpwvqwyHSY=; b=IyBVy+ubyjXFQO51oYbGL7I+p8KjDezLoXYa6RzApWw4vx+ykMngyY7vCAgkKKFl4hfYtu k0xacBDMRmo4YFKEz4kCgD+Jhgn8U67Of8O7vMA9RwYTo5scC6f9riupk1yLPiF3AhW7K/ ph9VmKyKsaTvfvi0xi82fIffosFZWN7Bw5t3m6bNqDPLVyl1GMUKrnHTwy8ygqLo3y1Fy6 EYziGBbLxGEW40iSy9tUQMlKdLh3izkxmmkD+YjzNtBpllnMpnbxE9N7a2Xlp2PTgYj4Tg 7S+cj2EykoQJ6QIcZ/RrvZaB72x7+9YDkEEwm4YEE3c9xG2Sn+B8wBfCl9tWFg== 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 451861BA35 for ; Sun, 26 May 2024 14:31:58 +0200 (CEST) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1sBD2C-0005uE-7K; Sun, 26 May 2024 08:31:32 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1sBD2B-0005tq-4d for help-guix@gnu.org; Sun, 26 May 2024 08:31:31 -0400 Received: from [81.190.248.246] (helo=marekpasnikowski.pl) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1sBD29-0002LF-5Q for help-guix@gnu.org; Sun, 26 May 2024 08:31:30 -0400 Received: from localhost (localhost.lan [127.0.0.1]) by localhost (OpenSMTPD) with ESMTP id d0911989 for ; Sun, 26 May 2024 12:24:41 +0000 (UTC) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed; d=marekpasnikowski.pl; h= from:to:subject:date:message-id:in-reply-to:references :mime-version:content-type; s=dkim; bh=Ft4r2hpHQNSP6wZMNR6GIhIO4 zvgzZiW+sjyTNS3tkY=; b=ClqEoOikzI73IpH+TXmgrfrt899bkgVhK0Hd6NBPe G3OSUXRe/BS+AcBOiIXMrJh9K03qZ8LKY9xOqAZWvZSxy4voxNN0Wl2l7/o1VRUk G5srgu/iBIsr6KoBm4+1hij5i2mf97j7yCdxW2tfDPUt9c6tO0ecBm6p/yCQOYXp jyEWeI/xoIAAWgfRMz9IfqCtpBsNXUg3SJKFm29Og9CPNLceD7MREWG6FV62qJee GQUC+NQSet6rAlDNjKn0eoQqy/iV6t01UGL/YpSbuVPZ+WoasP2RSAjpMGGYh7d4 2oQUvViaDqRPOtx95UvhkZJLZ3JPaZqZBuJbi2a90ho0A== Received: by localhost (OpenSMTPD) with ESMTPSA id dcc86ce9 (TLSv1.3:TLS_AES_256_GCM_SHA384:256:NO) for ; Sun, 26 May 2024 12:24:41 +0000 (UTC) From: Marek =?utf-8?B?UGHFm25pa293c2tp?= To: help-guix@gnu.org Subject: Re: Modification of Services with External Definitions of Clause Bodies Date: Sun, 26 May 2024 14:24:40 +0200 Message-ID: <6049373.lOV4Wx5bFT@akashi> In-Reply-To: <2186006.irdbgypaU6@akashi> References: <2186006.irdbgypaU6@akashi> MIME-Version: 1.0 Autocrypt: addr=marek@marekpasnikowski.pl; keydata= mQINBGWDbTQBEAD0zFCsZgPohfkNN1Nf+xxdo3mpktR1vWoOabKVgSxKx0XHqp23zgEZMxy2eIj 8NtCsSSURqrMBdlBwCm6uYqI5HqMGTPXvDGXGDAggtuo5Zgq74/bqtrlH3n2mZrloZpKTbZyV7Z NkwZ3pehUz7lavJeUx9CTahvbcHPFRPLPu92KEIa4RSQxU01xGsI5/xHKYO/GZUfqbBZAXbIeQN U6kzjkX6eODCs4+Aj2C90QvO6rAMF3JAkhy0KoDmyteYmhu7QeJf6WhWdbjpRkAg4kW8rqaTEgD MndDvL7auiKGi0AOr4d31q7GT8SMeZ3HU6jMirmCJJ6WFBqbjuWVVmCghNbiG0RC5kjYtCA3BXJ 9fuxh727a5rYPD9zUr2ExWlJVS1Galse5/0rL3NTrnH3y93y6NUf2qQJg7+QXNqUkLZVm9r6I/f UO/SwKuWfOCM3Bs01kU3f0fGpKLEb8VhtUndzehjRhw4mb0G+Im5TPgSIPDlHY4KQ0Fg2pZRNkh o9p6o6OGYjOPrfua1SHmOOpCFT630nFLca0eJSwfzNq1ZyHsZnVAxXBiHY7YHTZAZIGbZknygFY XIUz5Pt3lKsuGih2BZxA9eW4rfP2qXVrd6sHhpSTUcopYBxGRjdVBWUZHyot/dNKAPIhqxk/Asf ocqhwEq21a78OwH1cSiBlrwARAQABtC5NYXJlayBQYcWbbmlrb3dza2kgPG1hcmVrQG1hcmVrcG Fzbmlrb3dza2kucGw+iQJOBBMBCAA4FiEEWQ5QD+OdJrPmC3Q7bYGxIHcRiZ8FAmWDbTQCGwMFC wkIBwIGFQoJCAsCBBYCAwECHgECF4AACgkQbYGxIHcRiZ9dhw/7BMDp11s3MULr4WvEpZHS8523 iRHoFQlqKFq8pr2ZTJlUuPx3xCKLekmaXgFOpz4IVeS2dHE1cYCsvpoCFIB/XB+IvROZ5Isoc6+ Md0eCIp+fjYctln9fd9Y1vM8Bk2XPJvRX2I+7tQ4Ak6SKEEq7PbnkpjTDPEY3h8HnlWkLRr1geO 4UBqAW83R6cSsws3Gx4Oj2+DjqfZPb8ECcPMMXCgKMwWnTzXBgATVub4B+0pLO6BUbhuMkiKeLO 9J8MttLhmjT+xaBxQQpN1jFvto3Z85mQO2IY5j83L8QYsZB0GIeNRpFMZNjWGH7x/hU4qT0n+1S 1gil9Fb3ZODs1MJXI3UpdIjX2RjXk/fn9pRBUTunv3WfB1Oo8xOJ1jTsvJ54Rov1vF4ra11C7Ky HBsKiXhO4IZHH6tk87EeW5tx+eueysMqiA43TeY9mAxrDwAVeMHJQMde6pah/PUKIHSAuLAVyIY Tz6XW8cb3DOyEmzdFBTNLaqC7xFCDXSPEdSlDOK/bl6cJzqTnJEsHH7zRkyhlefWi2KqT1okU0T PNRlkc9Tbs7GLc6HrHK/Xg4Oe2eA2eRyZgJIj8hPtoWwk4vfpL4pvJ4PL0WhgHp2ZtEc9QmgYpn ukccru82dALYki6jucGOQ8awv5W978mmKC+JQcrFrwnFOJXahovdz8x7OZy5Ag0EZYNtNAEQANM eG1yZGdKYB5C+4hgQeCmgT7XTf620awvem3r7XvrWZRsajKqez2pHjwxMyDL0dn+wXxbDjlhjef x0sdyrmMK4Y+bXDpaT9RLsNZKu+l/wvto6QmUUtnc2wn8aNas7pvl8riVO6/Zb2l7JZ1UQUj7nA CbGgmGlzPy+U/HXzFdmmU7ResNnCmHvwDfxET5yISxQmHXq9tLzlceD7yJ1YPcBKXGEF5OjRmJ5 QbrSxqHgR5PZkKa7vsOKDUhzVGOBTSgI0e7ezH8hB9tF0Wugmua+7oqdmkwVUAMspUCxn07JB1F 0AfO9f3ZDLjEJX895iQ2kb8CavDRnJODA3dExN6RKN+VarGq4Oa0zYrwktSt3XlBfKxICzD4eGu UC8+UMsJwmo60hyA8coI7H+AQrlgqpJuDHFAjOVKhQrxeHkATCJOwX2yiLokGVl1RENgvx2SLi9 6+hr/bPCIurvn8KlxDf1NnHtMezEw0kpSfZWfNXMzWMZwpqF52ow8XahorbeHW2m3JgCJrUjZ7r QBBorq4dMDKCsqErlaD+DjaPsOIXYrT09HjEuuf+kyowrUSpZDqnBb7hspU1pEot9/b6E/9EVN1 DbW+ThU2sRD+KdvVJ9rYwG2k4Iak4CZJe1uICIMMultV42o7OCdIF5Ufi0Qhn0enZjdfjPIMZOV 3GIhRBABEBAAGJAjYEGAEIACAWIQRZDlAP450ms+YLdDttgbEgdxGJnwUCZYNtNAIbDAAKCRBtg bEgdxGJn7jbEADgK37EvVEK+7nBQR/5sB+gahxfP1zCAVlInb9ipLhbnB7WsckBaoAk9r01VDz+ jh4GZjWiYVj3rT3SfpwoYp61ciZMBGnWFrnd6Ibdd82pqAlrd6jOlZUVaFg5daQfUE/419hSiRL CBOFt0vIvHSUPfTJVrWMWgvBaztAvbuJhTARnVvg/lAzA6oZBluxvIgidM+ubRSuarE9f1QqMZN bGmd+hi/S13Gs2k9CLxrKBgVI/XzRNgvI6MA1RWtewH8J0J0h+8l/Fq3J4uYXKd2UhnfufAHjn2 YpQ1zMfDdHFVofL29eFhVbR8V2MlT2zRpcdcX40myoqmKnFra/kLZjLA45QwWmGHv4E8Uvh/BTm T06lmxz96vE5Ij+tAxwUBvMbcZC8B0c9q/FquNhdvqnVCT4lQCb8Rd8hmLe9dyjyo6w52NglAia LB6lExx0fftTPlLwyp1PgIkxawWhDTeZM749P37LY2bvHKKmjiAfO3Tydr6CF3LbLpYT3CdQqql 2l045luGSmB2iU8j0nq/v2NMCz/4CjZoK4wUEQ+3TnBnrHtmMCCKSBK3LY6fmmifFEMQUxcAe0A aJU58sMJDnBdvPD5UgtybQHsNHwfBs4WOeUoNns8yCUgXcdTQRFpdvOG8GawvvS+Zp7qmcMV+r/ /UDUeeYvAnCadFzZz2+1Ew== Content-Type: multipart/signed; boundary="nextPart4923549.31r3eYUQgx"; micalg="pgp-sha256"; protocol="application/pgp-signature" X-Host-Lookup-Failed: Reverse DNS lookup failed for 81.190.248.246 (failed) Received-SPF: pass client-ip=81.190.248.246; envelope-from=marek@marekpasnikowski.pl; helo=marekpasnikowski.pl X-Spam_score_int: -12 X-Spam_score: -1.3 X-Spam_bar: - X-Spam_report: (-1.3 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, RCVD_IN_SORBS_DUL=0.001, RDNS_NONE=0.793, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: help-guix@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-guix-bounces+larch=yhetil.org@gnu.org Sender: help-guix-bounces+larch=yhetil.org@gnu.org X-Migadu-Country: US X-Migadu-Flow: FLOW_IN X-Migadu-Queue-Id: 451861BA35 X-Migadu-Scanner: mx12.migadu.com X-Migadu-Spam-Score: -9.14 X-Spam-Score: -9.14 X-TUID: AjzRbYGZpL5N --nextPart4923549.31r3eYUQgx Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset="UTF-8"; protected-headers="v1" From: Marek =?utf-8?B?UGHFm25pa293c2tp?= To: help-guix@gnu.org Date: Sun, 26 May 2024 14:24:40 +0200 Message-ID: <6049373.lOV4Wx5bFT@akashi> In-Reply-To: <2186006.irdbgypaU6@akashi> References: <2186006.irdbgypaU6@akashi> MIME-Version: 1.0 23.05.2024 14:58:16 CEST Marek Pa=C5=9Bnikowski: > Good day to you all. >=20 > I am trying to achieve the following configuration pattern: >=20 > (define-public %distribution-services > (modify-services %desktop-services > (1-service-type config =3D> 1-change) > (2-service-type config =3D> 2-change) > (3-service-type config =3D> 3-change) > ... > (n-service-type config =3D> n-change))) >=20 > Each k-change is to be defined in its own, external module almost like th= is: >=20 > (define-public k-change > (lambda (config) > (k-service-configuration (inherit config) > ... > (n-customization))) >=20 > I wrote almost, because the presented pattern still fails to execute. > Regardless, this is the furthest I was able to go =E2=80=94 this approach= fails > during system reconfiguration, as opposed to the other attempts which > failed during guix pull. >=20 > The error message: >=20 > In procedure struct-vtable: > Wrong type argument in posistion 1 (expecting struct): > # >=20 > I know WHY it fails - lambdas do return procedures. My question to you i= s, > how can I modify the k-change definition to have it return the appropriate > service configuration structure? I missed the simplest possible type of abstraction during the initial testi= ng=20 =E2=80=94 the humble function. So here is the solution to my problem: (define-public (k-change config) (k-service-configuration (inherit config) ... (n-field))) (define-public %distribution-services (modify-services %desktop-services (k-service-type config =3D> (k-change config)))) It is not as beautiful as I had aimed for, but this is compromise I must ta= ke. Literally nothing else works. --nextPart4923549.31r3eYUQgx Content-Type: application/pgp-signature; name="signature.asc" Content-Description: This is a digitally signed message part. Content-Transfer-Encoding: 7Bit -----BEGIN PGP SIGNATURE----- iQIzBAABCAAdFiEEWQ5QD+OdJrPmC3Q7bYGxIHcRiZ8FAmZTKgkACgkQbYGxIHcR iZ99vxAA3dzqr3cy3+CTvZk7PM+PrqSy9hOj+IMXk9iRw+y5muunypIM+QhCPAAY cJ0ju3Dc3Cp8NZ8tayLQIoKt4d+DbetC1cVHXsmGUdolFDQt5jGj+XLVBCQrk6if Ufqo918g7GHmKYf+bluLKlDpU8JcPIZP1q186co14ZN+7xow9DBaltEiXMKAIV43 zRWt02ArNHOIXnwdEe53xFxs0W8kD+LCi7spGEWIsBsrlR33rxUXlpZXu9Puy1U5 gi063UaYHmbtlcGeVkecBcf4VaE5IUF9fXNxHQ2QWfp/GinHod8dFijFulVHUJVA nhOhI4UeASD4KstRBAn9Jt/YabCn1AO1RblYL7rkuj/sdli4fG1Iltgoa/ogAe7V y+kB8TVDcbdTPYqUnkjR44cB4uO4kAMvZDLfKKF4IBsq/92zoow592xDj4mBA9Cv zd5wNbLklaSx/RG+vTnsPsz6Yo42rWEimtavS1gELU9XS74SffVzkD9y9IxSlBKn ah+//ePszFZwRiLAS1O2AtxRv+ETq7LzaLlWA1WGvsob8ED//6BXaqN+1x8Ekk58 MrPOF0BUK+XnHDqbeMqekTnm3L4aEgihftNlxIRCvOF8vXiOyAPXZhMvLhp5imf/ 4T82WUmB9cma1c9bGk82YgJWtodIfSrIFJHWVdEOnSgpJugJRxo= =uMcX -----END PGP SIGNATURE----- --nextPart4923549.31r3eYUQgx--