From unknown Sat Jun 14 03:51:59 2025 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable MIME-Version: 1.0 X-Mailer: MIME-tools 5.509 (Entity 5.509) Content-Type: text/plain; charset=utf-8 From: bug#52699 <52699@debbugs.gnu.org> To: bug#52699 <52699@debbugs.gnu.org> Subject: Status: [PATCH] gnu: Add nar-herder. Reply-To: bug#52699 <52699@debbugs.gnu.org> Date: Sat, 14 Jun 2025 10:51:59 +0000 retitle 52699 [PATCH] gnu: Add nar-herder. reassign 52699 guix-patches submitter 52699 Christopher Baines severity 52699 normal tag 52699 patch thanks From debbugs-submit-bounces@debbugs.gnu.org Tue Dec 21 05:27:21 2021 Received: (at submit) by debbugs.gnu.org; 21 Dec 2021 10:27:21 +0000 Received: from localhost ([127.0.0.1]:52444 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1mzcMb-0004Dm-Et for submit@debbugs.gnu.org; Tue, 21 Dec 2021 05:27:21 -0500 Received: from lists.gnu.org ([209.51.188.17]:37600) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1mzcMX-0004DZ-OK for submit@debbugs.gnu.org; Tue, 21 Dec 2021 05:27:20 -0500 Received: from eggs.gnu.org ([209.51.188.92]:37702) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mzcMX-0000UG-HN for guix-patches@gnu.org; Tue, 21 Dec 2021 05:27:17 -0500 Received: from mira.cbaines.net ([212.71.252.8]:56408) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1mzcMV-0000Pg-O2 for guix-patches@gnu.org; Tue, 21 Dec 2021 05:27:17 -0500 Received: from localhost (unknown [IPv6:2a02:8010:68c1:0:8ac0:b4c7:f5c8:7caa]) by mira.cbaines.net (Postfix) with ESMTPSA id 561CC27BBE9 for ; Tue, 21 Dec 2021 10:27:12 +0000 (GMT) Received: from localhost (localhost [local]) by localhost (OpenSMTPD) with ESMTPA id 031baa00 for ; Tue, 21 Dec 2021 10:27:11 +0000 (UTC) From: Christopher Baines To: guix-patches@gnu.org Subject: [PATCH] gnu: Add nar-herder. Date: Tue, 21 Dec 2021 10:27:11 +0000 Message-Id: <20211221102711.30382-1-mail@cbaines.net> X-Mailer: git-send-email 2.33.1 MIME-Version: 1.0 Content-Transfer-Encoding: 8bit Received-SPF: pass client-ip=212.71.252.8; envelope-from=mail@cbaines.net; helo=mira.cbaines.net X-Spam_score_int: -18 X-Spam_score: -1.9 X-Spam_bar: - X-Spam_report: (-1.9 / 5.0 requ) BAYES_00=-1.9, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001, UNPARSEABLE_RELAY=0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-Spam-Score: -1.4 (-) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -2.4 (--) * gnu/packages/package-management.scm (nar-herder): New variable. --- gnu/packages/package-management.scm | 109 ++++++++++++++++++++++++++++ 1 file changed, 109 insertions(+) diff --git a/gnu/packages/package-management.scm b/gnu/packages/package-management.scm index 12736c6caf..feb56f2a9b 100644 --- a/gnu/packages/package-management.scm +++ b/gnu/packages/package-management.scm @@ -1441,6 +1441,115 @@ (define-public guix-jupyter in an isolated environment, in separate namespaces.") (license license:gpl3+))) +(define-public nar-herder + (let ((commit "049dfec287fa948cac6682d0a047bc0ed356f0bf") + (revision "1")) + (package + (name "nar-herder") + (version (git-version "0" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://git.cbaines.net/git/guix/nar-herder") + (commit commit))) + (sha256 + (base32 + "1bkn6avcyp2rcrqaync65b8yn9dvxlkjpk3mdk5nsy527dzhs5ws")) + (file-name (string-append name "-" version "-checkout")))) + (build-system gnu-build-system) + (arguments + `(#:modules (((guix build guile-build-system) + #:select (target-guile-effective-version)) + ,@%gnu-build-system-modules) + #:imported-modules ((guix build guile-build-system) + ,@%gnu-build-system-modules) + #:phases + (modify-phases %standard-phases + (add-before 'build 'set-GUILE_AUTO_COMPILE + (lambda _ + ;; To avoid warnings relating to 'guild'. + (setenv "GUILE_AUTO_COMPILE" "0") + #t)) + (add-after 'install 'wrap-executable + (lambda* (#:key inputs outputs target #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (bin (string-append out "/bin")) + (guile (assoc-ref inputs "guile")) + (version (target-guile-effective-version)) + (scm (string-append out "/share/guile/site/" version)) + (go (string-append out "/lib/guile/" version "/site-ccache"))) + (for-each + (lambda (file) + (simple-format (current-error-port) "wrapping: ~A\n" file) + (let ((guile-inputs (list + "guile-json" + "guile-gcrypt" + "guix" + "guile-lib" + "guile-sqlite3" + "gnutls" + "guile-fibers"))) + (wrap-program file + `("GUILE_LOAD_PATH" ":" prefix + (,scm ,(string-join + (map (lambda (input) + (simple-format + #f "~A/share/guile/site/~A" + (assoc-ref inputs input) + version)) + guile-inputs) + ":"))) + `("GUILE_LOAD_COMPILED_PATH" ":" prefix + (,go ,(string-join + (map (lambda (input) + (simple-format + #f "~A/lib/guile/~A/site-ccache" + (assoc-ref inputs input) + version)) + guile-inputs) + ":")))))) + (find-files bin))) + #t)) + (delete 'strip)))) ; As the .go files aren't compatible + (native-inputs + (list pkg-config + autoconf + automake + gnutls + + ;; Guile libraries are needed here for cross-compilation. + guile-3.0 + guile-json-4 + guile-gcrypt + guix + guile-fibers + guile-lib + guile-sqlite3)) + (inputs + (list bash-minimal + guile-3.0)) + (propagated-inputs + (list guile-json-4 + guile-gcrypt + guix + guile-fibers + guile-lib + guile-sqlite3 + gnutls)) + (home-page "https://git.cbaines.net/guix/nar-herder") + (synopsis "Utility for managing and serving nars") + (description + "The Nar Herder is a utility for managing a collection of +nars (normalized archives, in the context of Guix) along with the +corresponding narinfo files which contain some signed metadata. + +It can assist in serving a collection of nars, moving them between machines, +or mirroring an existing collection of nars. + +It's currently a working prototype, many designed features aren't implemented, +and the error handling is very rough.") + (license license:gpl3+)))) + (define-public gcab (package (name "gcab") -- 2.33.1 From debbugs-submit-bounces@debbugs.gnu.org Tue Dec 21 06:02:59 2021 Received: (at 52699) by debbugs.gnu.org; 21 Dec 2021 11:02:59 +0000 Received: from localhost ([127.0.0.1]:52517 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1mzcv5-0003WC-L2 for submit@debbugs.gnu.org; Tue, 21 Dec 2021 06:02:59 -0500 Received: from hera.aquilenet.fr ([185.233.100.1]:33308) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1mzcv3-0003Vx-SO for 52699@debbugs.gnu.org; Tue, 21 Dec 2021 06:02:58 -0500 Received: from localhost (localhost [127.0.0.1]) by hera.aquilenet.fr (Postfix) with ESMTP id 676714EE; Tue, 21 Dec 2021 12:02:51 +0100 (CET) X-Virus-Scanned: Debian amavisd-new at aquilenet.fr Received: from hera.aquilenet.fr ([127.0.0.1]) by localhost (hera.aquilenet.fr [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id zkl5WGd0qhD2; Tue, 21 Dec 2021 12:02:50 +0100 (CET) Received: from ribbon (unknown [IPv6:2001:660:6102:320:e120:2c8f:8909:cdfe]) by hera.aquilenet.fr (Postfix) with ESMTPSA id B279618E; Tue, 21 Dec 2021 12:02:49 +0100 (CET) From: =?utf-8?Q?Ludovic_Court=C3=A8s?= To: Christopher Baines Subject: Re: bug#52699: [PATCH] gnu: Add nar-herder. References: <20211221102711.30382-1-mail@cbaines.net> Date: Tue, 21 Dec 2021 12:02:48 +0100 In-Reply-To: <20211221102711.30382-1-mail@cbaines.net> (Christopher Baines's message of "Tue, 21 Dec 2021 10:27:11 +0000") Message-ID: <87pmpq6x0n.fsf@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.2 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Spamd-Bar: / Authentication-Results: hera.aquilenet.fr; none X-Rspamd-Server: hera X-Rspamd-Queue-Id: 676714EE X-Spamd-Result: default: False [-0.10 / 15.00]; ARC_NA(0.00)[]; RCVD_VIA_SMTP_AUTH(0.00)[]; RCPT_COUNT_TWO(0.00)[2]; FROM_HAS_DN(0.00)[]; TO_DN_SOME(0.00)[]; TO_MATCH_ENVRCPT_ALL(0.00)[]; MIME_GOOD(-0.10)[text/plain]; FROM_EQ_ENVFROM(0.00)[]; MIME_TRACE(0.00)[0:+]; RCVD_COUNT_TWO(0.00)[2]; RCVD_TLS_ALL(0.00)[]; MID_RHS_MATCH_FROM(0.00)[] X-Spam-Score: 1.0 (+) X-Debbugs-Envelope-To: 52699 Cc: 52699@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -0.0 (/) Hello! Christopher Baines skribis: > * gnu/packages/package-management.scm (nar-herder): New variable. [...] > + (add-before 'build 'set-GUILE_AUTO_COMPILE > + (lambda _ > + ;; To avoid warnings relating to 'guild'. > + (setenv "GUILE_AUTO_COMPILE" "0") > + #t)) You can omit trailing #t=E2=80=99s. > + (add-after 'install 'wrap-executable > + (lambda* (#:key inputs outputs target #:allow-other-keys) > + (let* ((out (assoc-ref outputs "out")) > + (bin (string-append out "/bin")) > + (guile (assoc-ref inputs "guile")) > + (version (target-guile-effective-version)) > + (scm (string-append out "/share/guile/site/" versi= on)) > + (go (string-append out "/lib/guile/" version "/si= te-ccache"))) > + (for-each > + (lambda (file) > + (simple-format (current-error-port) "wrapping: ~A\n"= file) > + (let ((guile-inputs (list > + "guile-json" > + "guile-gcrypt" > + "guix" > + "guile-lib" > + "guile-sqlite3" > + "gnutls" > + "guile-fibers"))) > + (wrap-program file > + `("GUILE_LOAD_PATH" ":" prefix > + (,scm ,(string-join > + (map (lambda (input) > + (simple-format > + #f "~A/share/guile/site/~A" > + (assoc-ref inputs input) > + version)) > + guile-inputs) > + ":"))) > + `("GUILE_LOAD_COMPILED_PATH" ":" prefix > + (,go ,(string-join > + (map (lambda (input) > + (simple-format > + #f "~A/lib/guile/~A/site-ccache" > + (assoc-ref inputs input) > + version)) > + guile-inputs) > + ":")))))) I=E2=80=99d use =E2=80=98string-append=E2=80=99 rather than =E2=80=98format= =E2=80=99. (It=E2=80=99d be nice to have a streamlined solution to wrap those Guile executables=E2=80=A6) > + (license license:gpl3+)))) I believe it=E2=80=99s =E2=80=98agpl3+=E2=80=99 (though GPLv3+ would make i= t easier to share code with Guix; something worth considering). Otherwise LGTM, thanks! Ludo=E2=80=99. From debbugs-submit-bounces@debbugs.gnu.org Tue Dec 21 06:24:37 2021 Received: (at 52699-done) by debbugs.gnu.org; 21 Dec 2021 11:24:37 +0000 Received: from localhost ([127.0.0.1]:52565 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1mzdG1-0004Cd-0p for submit@debbugs.gnu.org; Tue, 21 Dec 2021 06:24:37 -0500 Received: from mira.cbaines.net ([212.71.252.8]:47060) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1mzdFz-0004CV-4x for 52699-done@debbugs.gnu.org; Tue, 21 Dec 2021 06:24:36 -0500 Received: from localhost (unknown [IPv6:2a02:8010:68c1:0:8ac0:b4c7:f5c8:7caa]) by mira.cbaines.net (Postfix) with ESMTPSA id 3EF5627BBE9; Tue, 21 Dec 2021 11:24:34 +0000 (GMT) Received: from capella (localhost [127.0.0.1]) by localhost (OpenSMTPD) with ESMTP id 34ff25fb; Tue, 21 Dec 2021 11:24:34 +0000 (UTC) References: <20211221102711.30382-1-mail@cbaines.net> <87pmpq6x0n.fsf@gnu.org> User-agent: mu4e 1.6.6; emacs 27.2 From: Christopher Baines To: Ludovic =?utf-8?Q?Court=C3=A8s?= Subject: Re: bug#52699: [PATCH] gnu: Add nar-herder. Date: Tue, 21 Dec 2021 11:23:29 +0000 In-reply-to: <87pmpq6x0n.fsf@gnu.org> Message-ID: <875yrii4jy.fsf@cbaines.net> MIME-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha512; protocol="application/pgp-signature" X-Spam-Score: -0.0 (/) X-Debbugs-Envelope-To: 52699-done Cc: 52699-done@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.0 (-) --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Ludovic Court=C3=A8s writes: > Hello! > > Christopher Baines skribis: > >> * gnu/packages/package-management.scm (nar-herder): New variable. > > [...] > >> + (add-before 'build 'set-GUILE_AUTO_COMPILE >> + (lambda _ >> + ;; To avoid warnings relating to 'guild'. >> + (setenv "GUILE_AUTO_COMPILE" "0") >> + #t)) > > You can omit trailing #t=E2=80=99s. > >> + (add-after 'install 'wrap-executable >> + (lambda* (#:key inputs outputs target #:allow-other-keys) >> + (let* ((out (assoc-ref outputs "out")) >> + (bin (string-append out "/bin")) >> + (guile (assoc-ref inputs "guile")) >> + (version (target-guile-effective-version)) >> + (scm (string-append out "/share/guile/site/" vers= ion)) >> + (go (string-append out "/lib/guile/" version "/s= ite-ccache"))) >> + (for-each >> + (lambda (file) >> + (simple-format (current-error-port) "wrapping: ~A\n= " file) >> + (let ((guile-inputs (list >> + "guile-json" >> + "guile-gcrypt" >> + "guix" >> + "guile-lib" >> + "guile-sqlite3" >> + "gnutls" >> + "guile-fibers"))) >> + (wrap-program file >> + `("GUILE_LOAD_PATH" ":" prefix >> + (,scm ,(string-join >> + (map (lambda (input) >> + (simple-format >> + #f "~A/share/guile/site/~A" >> + (assoc-ref inputs input) >> + version)) >> + guile-inputs) >> + ":"))) >> + `("GUILE_LOAD_COMPILED_PATH" ":" prefix >> + (,go ,(string-join >> + (map (lambda (input) >> + (simple-format >> + #f "~A/lib/guile/~A/site-ccach= e" >> + (assoc-ref inputs input) >> + version)) >> + guile-inputs) >> + ":")))))) > > I=E2=80=99d use =E2=80=98string-append=E2=80=99 rather than =E2=80=98form= at=E2=80=99. > > (It=E2=80=99d be nice to have a streamlined solution to wrap those Guile > executables=E2=80=A6) > >> + (license license:gpl3+)))) > > I believe it=E2=80=99s =E2=80=98agpl3+=E2=80=99 (though GPLv3+ would make= it easier to share > code with Guix; something worth considering). > > Otherwise LGTM, thanks! Thanks for taking a look! I've pushed as 6f76678cb7575072395198c343a9fecc52839513 with the changes you mentioned above. Thanks, Chris --=-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQKlBAEBCgCPFiEEPonu50WOcg2XVOCyXiijOwuE9XcFAmHBuXFfFIAAAAAALgAo aXNzdWVyLWZwckBub3RhdGlvbnMub3BlbnBncC5maWZ0aGhvcnNlbWFuLm5ldDNF ODlFRUU3NDU4RTcyMEQ5NzU0RTBCMjVFMjhBMzNCMEI4NEY1NzcRHG1haWxAY2Jh aW5lcy5uZXQACgkQXiijOwuE9XfMbxAAlXR6KswJNksbBlyOU2D73l16gR++jOjp ri3Aej8AhnSdJEItOhiYehWjAauA31Id+PtdiVAyXDpA7TMrWh4GqWIJZzm5ZBHA /I4pFw2JCw7vvcGyCHnrw3rKuhkN6T9ETsxazh6qTESTZpqnaAYAVBnKdSCWtzdv 35PITd0s7Nywp8+fBvGmD++rshUDnu+EeljvyhcGP79yqaoulesyUYmgQuQxI7Nb 4d+H+xC5svFLN1D9/JraSFFbh7w7ZtfkMCrwShn3CuUEMJJIESNjExsJxu3iUhz7 7Envb32cCv9SOJok4k5V4dqchua0ZiED5u8O2Fo0xx17x5bjSGVdhKGxp2UDzDi8 swKIW2aLNZsVoPlALrA1U8KmXXIfhd2ZNiqDn/PXp0RS9sz7Az1WQjNOWqKM3Hqn K+sBuNYaEtOf9LscYZrimu3HQqE0Jpicj+uunkWZHue4XQpVeXVPZKURPNr5YOZz 9RBuruEeJ6NP8yHKaPY9u+DxKWwpBei+8ZUTNqx76ya8jMNWFijp4WiDs9rpsWZ3 msX1LjVdBMQOlaPplvTpu041JmNX69Ri47/FOcXRAQC/5cKBpYr7/5io3//akHuG 5fc6THcwzskGHhvIxKrsP0w1YEcFk8xaNpT9Qj+IuuoboCSCLSa96n/fs40CMoYL W4eIFkS5cQk= =KL2n -----END PGP SIGNATURE----- --=-=-=-- From unknown Sat Jun 14 03:51:59 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: bug archived. Date: Tue, 18 Jan 2022 12:24:12 +0000 User-Agent: Fakemail v42.6.9 # This is a fake control message. # # The action: # bug archived. thanks # This fakemail brought to you by your local debbugs # administrator