mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 14:07:01 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

store: 'run-with-store' has a #:target parameter.

Browse source 
* guix/store.scm (run-with-store): Add #:target and honor it.
This commit is contained in:
Ludovic Courtès 2017-09-12 22:19:44 +02:00
parent bbb1246fd8
commit 45bba47510
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
guix/store.scm
View file

@ -1429,7 +1429,8 @@ (define %guile-for-build
(define* (run-with-store store mval
#:key
(guile-for-build (%guile-for-build))
(system (%current-system)))
(system (%current-system))
(target #f))
"Run MVAL, a monadic value in the store monad, in STORE, an open store
connection, and return the result."
;; Initialize the dynamic bindings here to avoid bad surprises. The
@ -1437,7 +1438,7 @@ (define* (run-with-store store mval
;; bind-time and not at call time, which can be disconcerting.
(parameterize ((%guile-for-build guile-for-build)
(%current-system system)
(%current-target-system #f))
(%current-target-system target))
(call-with-values (lambda ()
(run-with-state mval store))
(lambda (result store)