TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

store: Change 'run-with-store' to return a single value.

Browse source 
* guix/store.scm (run-with-store): Wrap 'run-with-state' in
  'call-with-values'.  Return only the first value.
This commit is contained in:
Ludovic Courtès 2015-01-21 19:31:10 +01:00
parent a101c891e1
commit 3698f524d5
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
guix/store.scm
View file

@ -917,10 +917,14 @@ (define* (run-with-store store mval
(guile-for-build (%guile-for-build)) (guile-for-build (%guile-for-build))
(system (%current-system))) (system (%current-system)))
"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." connection, and return the result."
(parameterize ((%guile-for-build guile-for-build) (parameterize ((%guile-for-build guile-for-build)
(%current-system system)) (%current-system system))
(run-with-state mval store))) (call-with-values (lambda ()
(run-with-state mval store))
(lambda (result store)
;; Discard the state.
result))))
;;; ;;;