Message ID | 20201101142919.5bcafefb@tachikoma.lepiller.eu |
---|---|
State | Accepted |
Headers | show |
Series | [bug#44344] guix: describe: Improve package provenance tracking. | expand |
Context | Check | Description |
---|---|---|
cbaines/issue | success | View issue |
cbaines/comparison | success | View comparision |
cbaines/git branch | success | View Git branch |
cbaines/applying patch | fail | View Laminar job |
Hi Julien, Julien Lepiller <julien@lepiller.eu> skribis: > Maybe this is only an issue in guix repl, but when looking for the > provenance of a package that's defined in a channel, I always get `#f`: I can’t reproduce the bug: --8<---------------cut here---------------start------------->8--- $ cat /tmp/channels.scm (cons (channel (name 'guix-hpc) (url "https://gitlab.inria.fr/guix-hpc/guix-hpc.git")) %default-channels) $ guix time-machine -C /tmp/channels.scm -- repl Updating channel 'guix-hpc' from Git repository at 'https://gitlab.inria.fr/guix-hpc/guix-hpc.git'... Updating channel 'guix' from Git repository at 'https://git.savannah.gnu.org/git/guix.git'... [...] scheme@(guix-user)> ,use(guix) scheme@(guix-user)> ,use(gnu) scheme@(guix-user)> ,use(guix describe) scheme@(guix-user)> ,use(inria storm) scheme@(guix-user)> (package-provenance starpu) $1 = ((repository (version 0) (url "https://git.savannah.gnu.org/git/guix.git") (branch "master") (commit "794928a9062529cb75c019454d7bd31b8cf83cb7") (introduction (channel-introduction (version 0) (commit "9edb3f66fd807b096b48283debdcddccfea34bad") (signer "BBB0 2DDF 2CEA F6A8 0D1D E643 A2A0 6DF2 A33A 54FA")))) (repository (version 0) (url "https://gitlab.inria.fr/guix-hpc/ guix-hpc.git") (branch "master") (commit "bf3afdd85c68ee022b863da72b90e0c304b11bee"))) scheme@(guix-user)> ,use(gnu packages base) scheme@(guix-user)> (package-provenance coreutils) $2 = ((repository (version 0) (url "https://git.savannah.gnu.org/git/guix.git") (branch "master") (commit "794928a9062529cb75c019454d7bd31b8cf83cb7") (introduction (channel-introduction (version 0) (commit "9edb3f66fd807b096b48283debdcddccfea34bad") (signer "BBB0 2DDF 2CEA F6A8 0D1D E643 A2A0 6DF2 A33A 54FA"))))) --8<---------------cut here---------------end--------------->8--- Do you have a reproducer? Thanks, Ludo’.
Le 2 novembre 2020 11:15:14 GMT-05:00, "Ludovic Courtès" <ludo@gnu.org> a écrit : >Hi Julien, > >Julien Lepiller <julien@lepiller.eu> skribis: > >> Maybe this is only an issue in guix repl, but when looking for the >> provenance of a package that's defined in a channel, I always get >`#f`: > >I can’t reproduce the bug: > >--8<---------------cut here---------------start------------->8--- >$ cat /tmp/channels.scm >(cons (channel > (name 'guix-hpc) > (url "https://gitlab.inria.fr/guix-hpc/guix-hpc.git")) > %default-channels) >$ guix time-machine -C /tmp/channels.scm -- repl >Updating channel 'guix-hpc' from Git repository at >'https://gitlab.inria.fr/guix-hpc/guix-hpc.git'... >Updating channel 'guix' from Git repository at >'https://git.savannah.gnu.org/git/guix.git'... > >[...] > >scheme@(guix-user)> ,use(guix) >scheme@(guix-user)> ,use(gnu) >scheme@(guix-user)> ,use(guix describe) >scheme@(guix-user)> ,use(inria storm) >scheme@(guix-user)> (package-provenance starpu) >$1 = ((repository (version 0) (url >"https://git.savannah.gnu.org/git/guix.git") (branch "master") (commit >"794928a9062529cb75c019454d7bd31b8cf83cb7") (introduction >(channel-introduction (version 0) (commit >"9edb3f66fd807b096b48283debdcddccfea34bad") (signer "BBB0 2DDF 2CEA >F6A8 0D1D E643 A2A0 6DF2 A33A 54FA")))) (repository (version 0) (url >"https://gitlab.inria.fr/guix-hpc/ guix-hpc.git") (branch "master") >(commit "bf3afdd85c68ee022b863da72b90e0c304b11bee"))) >scheme@(guix-user)> ,use(gnu packages base) >scheme@(guix-user)> (package-provenance coreutils) >$2 = ((repository (version 0) (url >"https://git.savannah.gnu.org/git/guix.git") (branch "master") (commit >"794928a9062529cb75c019454d7bd31b8cf83cb7") (introduction >(channel-introduction (version 0) (commit >"9edb3f66fd807b096b48283debdcddccfea34bad") (signer "BBB0 2DDF 2CEA >F6A8 0D1D E643 A2A0 6DF2 A33A 54FA"))))) >--8<---------------cut here---------------end--------------->8--- > >Do you have a reproducer? So it seems that I cannot reproduce che bug either when using guix timekmachine and a channel that has not been pulled by guix. I suppose in the case of timekmachine, it doesn't add ~/.config/guix to the search path, so the information is found. Can you try pulling this channel with guix itself? You should be able to reproduce then. > >Thanks, >Ludo’.
Hi, Julien Lepiller <julien@lepiller.eu> skribis: > So it seems that I cannot reproduce che bug either when using guix timekmachine and a channel that has not been pulled by guix. I suppose in the case of timekmachine, it doesn't add ~/.config/guix to the search path, so the information is found. > > Can you try pulling this channel with guix itself? You should be able to reproduce then. I tried this and got the same result: --8<---------------cut here---------------start------------->8--- $ guix pull -C /tmp/channels.scm -p /tmp/test Updating channel 'guix-hpc' from Git repository at 'https://gitlab.inria.fr/guix-hpc/guix-hpc.git'... Updating channel 'guix' from Git repository at 'https://git.savannah.gnu.org/git/guix.git'... [...] $ /tmp/test/bin/guix repl GNU Guile 3.0.4 Copyright (C) 1995-2020 Free Software Foundation, Inc. Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'. This program is free software, and you are welcome to redistribute it under certain conditions; type `,show c' for details. Enter `,help' for help. scheme@(guix-user)> ,use(guix) scheme@(guix-user)> ,use(gnu) scheme@(guix-user)> ,use(guix describe) scheme@(guix-user)> ,use(inria storm) scheme@(guix-user)> (package-provenance starpu) $1 = ((repository (version 0) (url "https://git.savannah.gnu.org/git/guix.git") (branch "master") (commit "7a9e68cc8750a9b378ae54a42d3e882a2e548c95") (introduction (channel-introduction (version 0) (commit "9edb3f66fd807b096b48283debdcddccfea34bad") (signer "BBB0 2DDF 2CEA F6A8 0D1D E643 A2A0 6DF2 A33A 54FA")))) (repository (version 0) (url "https://gitlab.inria.fr/guix-hpc/guix-hpc.git") (branch "master") (commit "bf3afdd85c68ee022b863da72b90e0c304b11bee"))) scheme@(guix-user)> ,use(gnu packages base) scheme@(guix-user)> (package-provenance grep) $2 = ((repository (version 0) (url "https://git.savannah.gnu.org/git/guix.git") (branch "master") (commit "7a9e68cc8750a9b378ae54a42d3e882a2e548c95") (introduction (channel-introduction (version 0) (commit "9edb3f66fd807b096b48283debdcddccfea34bad") (signer "BBB0 2DDF 2CEA F6A8 0D1D E643 A2A0 6DF2 A33A 54FA"))))) --8<---------------cut here---------------end--------------->8--- Let me know if you can reproduce it somehow, otherwise we can close this issue. Ludo’.
Le 3 novembre 2020 04:17:53 GMT-05:00, "Ludovic Courtès" <ludo@gnu.org> a écrit : >Hi, > >Julien Lepiller <julien@lepiller.eu> skribis: > >> So it seems that I cannot reproduce che bug either when using guix >timekmachine and a channel that has not been pulled by guix. I suppose >in the case of timekmachine, it doesn't add ~/.config/guix to the >search path, so the information is found. >> >> Can you try pulling this channel with guix itself? You should be able >to reproduce then. > >I tried this and got the same result: > >--8<---------------cut here---------------start------------->8--- >$ guix pull -C /tmp/channels.scm -p /tmp/test >Updating channel 'guix-hpc' from Git repository at >'https://gitlab.inria.fr/guix-hpc/guix-hpc.git'... >Updating channel 'guix' from Git repository at >'https://git.savannah.gnu.org/git/guix.git'... > >[...] > >$ /tmp/test/bin/guix repl >GNU Guile 3.0.4 >Copyright (C) 1995-2020 Free Software Foundation, Inc. > >Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'. >This program is free software, and you are welcome to redistribute it >under certain conditions; type `,show c' for details. > >Enter `,help' for help. >scheme@(guix-user)> ,use(guix) >scheme@(guix-user)> ,use(gnu) >scheme@(guix-user)> ,use(guix describe) >scheme@(guix-user)> ,use(inria storm) >scheme@(guix-user)> (package-provenance starpu) >$1 = ((repository (version 0) (url >"https://git.savannah.gnu.org/git/guix.git") (branch "master") (commit >"7a9e68cc8750a9b378ae54a42d3e882a2e548c95") (introduction >(channel-introduction (version 0) (commit >"9edb3f66fd807b096b48283debdcddccfea34bad") (signer "BBB0 2DDF 2CEA >F6A8 0D1D E643 A2A0 6DF2 A33A 54FA")))) (repository (version 0) (url >"https://gitlab.inria.fr/guix-hpc/guix-hpc.git") (branch "master") >(commit "bf3afdd85c68ee022b863da72b90e0c304b11bee"))) >scheme@(guix-user)> ,use(gnu packages base) >scheme@(guix-user)> (package-provenance grep) >$2 = ((repository (version 0) (url >"https://git.savannah.gnu.org/git/guix.git") (branch "master") (commit >"7a9e68cc8750a9b378ae54a42d3e882a2e548c95") (introduction >(channel-introduction (version 0) (commit >"9edb3f66fd807b096b48283debdcddccfea34bad") (signer "BBB0 2DDF 2CEA >F6A8 0D1D E643 A2A0 6DF2 A33A 54FA"))))) >--8<---------------cut here---------------end--------------->8--- > >Let me know if you can reproduce it somehow, otherwise we can close >this >issue. Ah! I found where the issue was. Since I'm using the guix home manager, I added ~/.config/guix to my GUILE_LOAD_PATH, which is added to %load-path very early, so for anything that's added afterwards, I get #f. The reason I had to extend GUILE_LOAD_PATH was to be able to use the guix home subcommand. Without it the command was not looked up with the correct search path and was not found. > >Ludo’.
From 5998d636ea17a192fa1cf1720c38c9b4676d0189 Mon Sep 17 00:00:00 2001 From: Julien Lepiller <julien@lepiller.eu> Date: Sat, 31 Oct 2020 15:35:54 +0100 Subject: [PATCH] guix: describe: Improve package provenance tracking. %load-path lists ~/.config/guix/current before individual channels. We use canonicalize-path to get the store path for channel packages. * guix/describe.scm (package-provenance): Use canonicalize-path. --- guix/describe.scm | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/guix/describe.scm b/guix/describe.scm index 05bf99eb58..ecda90897a 100644 --- a/guix/describe.scm +++ b/guix/describe.scm @@ -132,25 +132,25 @@ property of manifest entries, or #f if it could not be determined." (file (let ((file (if (string-prefix? "/" file) file - (search-path %load-path file)))) + (and=> (search-path %load-path file) canonicalize-path)))) (and file (string-prefix? (%store-prefix) file) ;; Always store information about the 'guix' channel and ;; optionally about the specific channel FILE comes from. - (or (let ((main (and=> (find (lambda (entry) - (string=? "guix" - (manifest-entry-name entry))) - (current-profile-entries)) - entry-source)) - (extra (any (lambda (entry) - (let ((item (manifest-entry-item entry))) - (and (string-prefix? item file) - (entry-source entry)))) - (current-profile-entries)))) - (and main - `(,main - ,@(if extra (list extra) '())))))))))) + (let ((main (and=> (find (lambda (entry) + (string=? "guix" + (manifest-entry-name entry))) + (current-profile-entries)) + entry-source)) + (extra (any (lambda (entry) + (let ((item (manifest-entry-item entry))) + (and (string-prefix? item file) + (entry-source entry)))) + (current-profile-entries)))) + (and main + `(,main + ,@(if extra (list extra) '()))))))))) (define (manifest-entry-with-provenance entry) "Return ENTRY with an additional 'provenance' property if it's not already -- 2.28.0