Re: [PATCH] profiles: Report about upgrades.

[Ludovic Courtès]

Alex Kost <address@hidden> skribis:

> +  (let* ((remove (manifest-matching-entries
> +                  manifest (manifest-transaction-remove transaction)))
> +         (install/upgrade (manifest-transaction-install transaction))
> +         (install '())
> +         (upgrade (append-map
> +                   (lambda (entry)
> +                     (let ((matching
> +                            (manifest-matching-entries
> +                             manifest
> +                             (list (manifest-pattern
> +                                    (name   (manifest-entry-name entry))
> +                                    (output (manifest-entry-output 
> entry)))))))
> +                       (when (null? matching)
> +                         (set! install (cons entry install)))
> +                       matching))
> +                   install/upgrade)))

Somehow I had overlooked the ‘set!’ here.  ;-)  I’ve just added an
auxiliary procedure, ‘manifest-transaction-effects’, which does that in
a functional way.  Let me know if there’s anything wrong.

Ludo’.