nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

* 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 @@ where FILE is the entry's absolute file name and STAT is the result of
(define* (run-with-store store mval (define* (run-with-store store mval
#:key #:key
(guile-for-build (%guile-for-build)) (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 "Run MVAL, a monadic value in the store monad, in STORE, an open store
connection, and return the result." connection, and return the result."
;; Initialize the dynamic bindings here to avoid bad surprises. The ;; Initialize the dynamic bindings here to avoid bad surprises. The
@ -1437,7 +1438,7 @@ connection, and return the result."
;; bind-time and not at call time, which can be disconcerting. ;; bind-time and not at call time, which can be disconcerting.
(parameterize ((%guile-for-build guile-for-build) (parameterize ((%guile-for-build guile-for-build)
(%current-system system) (%current-system system)
(%current-target-system #f)) (%current-target-system target))
(call-with-values (lambda () (call-with-values (lambda ()
(run-with-state mval store)) (run-with-state mval store))
(lambda (result store) (lambda (result store)