GNU bug report logs - #33867
Folding with origin-uri fails for inherited packages

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 33867 in the body.
You can then email your comments to 33867 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: swedebugia <swedebugia <at> riseup.net>
To: Report new Guix bug <bug-guix <at> gnu.org>
Subject: Folding with origin-uri fails for inherited packages
Date: Tue, 25 Dec 2018 12:43:38 +0100

Is this a bug?

scheme@(guix-user) [1]> (define snakes
                       (fold-packages
                            (lambda (package lst)
                                (if (string-prefix? "python"
                                      (package-name package))
                                       (cons (origin-uri package) lst)
                             lst))
                        '()))
... ... ... ... ... ... ... <unnamed port>:15:45: In procedure 
origin-uri: Wrong type argument: #<package python2-defusedxml <at> 0.5.0 
gnu/packages/xml.scm:1235 2220300>

Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
scheme@(guix-user) [2]> ,bt
In current input:
    11:23  5 (_)
In guix/discovery.scm:
    155:3  4 (fold-module-public-variables _ _ _)
In guix/combinators.scm:
    45:26  3 (fold2 #<procedure 1138b20 at guix/discovery.scm:155:10 
(mod…> …)
    45:26  2 (fold2 #<procedure 1144620 at guix/discovery.scm:156:19 
(var…> …)
In guix/discovery.scm:
   158:33  1 (_ #<package python2-defusedxml <at> 0.5.0 
gnu/packages/xml.scm:1…> …)
In current input:
    15:45  0 (_ _ _)


-- 
Cheers Swedebugia

Message #8 received at 33867 <at> debbugs.gnu.org (full text, mbox):

From: Mathieu Othacehe <m.othacehe <at> gmail.com>
To: swedebugia <swedebugia <at> riseup.net>
Cc: 33867 <at> debbugs.gnu.org
Subject: Re: bug#33867: Folding with origin-uri fails for inherited packages
Date: Tue, 25 Dec 2018 13:01:15 +0100

Hi,

> Is this a bug?

No it's not, the following snippet should work better.

--8<---------------cut here---------------start------------->8---
(fold-packages
 (lambda (package lst)
   (if (string-prefix? "python" (package-name package))
       (cons (and=> (package-source package)
                    (lambda (source)
                      (origin-uri source)))
             lst)
     lst))
 '())
--8<---------------cut here---------------end--------------->8---

Mathieu

Message #13 received at 33867-done <at> debbugs.gnu.org (full text, mbox):

From: swedebugia <swedebugia <at> riseup.net>
To: Mathieu Othacehe <m.othacehe <at> gmail.com>
Cc: 33867-done <at> debbugs.gnu.org
Subject: Re: bug#33867: Folding with origin-uri fails for inherited packages
Date: Tue, 25 Dec 2018 18:29:28 +0100

On 2018-12-25 13:01, Mathieu Othacehe wrote:
> (fold-packages
>   (lambda (package lst)
>     (if (string-prefix? "python" (package-name package))
>         (cons (and=> (package-source package)
>                      (lambda (source)
>                        (origin-uri source)))
>               lst)
>       lst))
>   '())

thanks!
closing
-- 
Cheers Swedebugia

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.