From 2971f39c3330a69f44d1ac97443e42b0f8e0173e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 16 Mar 2017 17:31:10 +0100
Subject: [PATCH] pack: Honor command-line options related to the store.

* guix/scripts/pack.scm (guix-pack): Call
'set-build-options-from-command-line'.
---
 guix/scripts/pack.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm
index 067b1227e0..e422b3cdda 100644
--- a/guix/scripts/pack.scm
+++ b/guix/scripts/pack.scm
@@ -284,6 +284,9 @@ Create a bundle of PACKAGE.\n"))
              (symlinks   (assoc-ref opts 'symlinks))
              (localstatedir? (assoc-ref opts 'localstatedir?)))
         (with-store store
+          ;; Set the build options before we do anything else.
+          (set-build-options-from-command-line store opts)
+
           (run-with-store store
             (mlet* %store-monad ((profile (profile-derivation
                                            (packages->manifest packages)))