M guix/scripts/package.scm => guix/scripts/package.scm +3 -3
@@ 174,10 174,10 @@ DURATION-RELATION with the current time."
packages that will/would be installed and removed."
;; TODO: Report upgrades more clearly.
(match remove
- ((($ <manifest-entry> name version _ path _) ..1)
+ ((($ <manifest-entry> name version output path _) ..1)
(let ((len (length name))
- (remove (map (cut format #f " ~a-~a\t~a" <> <> <>)
- name version path)))
+ (remove (map (cut format #f " ~a-~a\t~a\t~a" <> <> <> <>)
+ name version output path)))
(if dry-run?
(format (current-error-port)
(N_ "The following package would be removed:~%~{~a~%~}~%"