pull: Add missing monadic 'return'.

Fixes a regression introduced in
5f7dd092ca where, upon completion, 'guix
pull' would fail (instead of printing the new/upgraded packages) with
ugly errors like:

  successfully built /gnu/store/…-profile.drv
  1 package in profile
  Backtrace:
  […]
  In guix/store.scm:
    1605:24  1 (run-with-store _ _ #:guile-for-build _ #:system _ # _)
  In unknown file:
	     0 (_ #<build-daemon 256.97 2476b40>)

  ERROR: Wrong type to apply: #t

Reported by thorwil on #guix.

* guix/scripts/pull.scm (build-and-install): Add missing 'return' when
DRY-RUN? is wrong.
This commit is contained in:
Ludovic Courtès 2018-11-07 21:53:44 +01:00
parent 2b773a9273
commit ea68b3f652
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5

View File

@ -177,7 +177,7 @@ true, display what would be built without actually building it."
(update-profile profile manifest
#:dry-run? dry-run?)
(munless dry-run?
(display-profile-news profile)))))
(return (display-profile-news profile))))))
(define (honor-lets-encrypt-certificates! store)
"Tell Guile-Git to use the Let's Encrypt certificates."