From 0f5378ebc4096b1d536f75c9867454215e8e06d6 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 31 Jan 2013 23:24:10 +0100 Subject: guix-package: Reduce start-up time for queries. * guix-package.in (guix-package): Call `open-connection' and `package-derivation' only after `process-query' has returned. --- guix-package.in | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'guix-package.in') diff --git a/guix-package.in b/guix-package.in index ab0191faa2..053f8fbf83 100644 --- a/guix-package.in +++ b/guix-package.in @@ -604,9 +604,9 @@ Install, remove, or upgrade PACKAGES in a single transaction.\n")) (setvbuf (current-error-port) _IOLBF) (let ((opts (parse-options))) - (parameterize ((%store (open-connection))) - (with-error-handling - (or (process-query opts) + (or (process-query opts) + (parameterize ((%store (open-connection))) + (with-error-handling (parameterize ((%guile-for-build (package-derivation (%store) (if (assoc-ref opts 'bootstrap?) -- cgit v1.2.3