From 0f5378ebc4096b1d536f75c9867454215e8e06d6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 31 Jan 2013 23:24:10 +0100
Subject: [PATCH] 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(-)
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?)