Browse Source

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

* guix/store.scm (run-with-store): Wrap 'run-with-state' in
  'call-with-values'.  Return only the first value.
gn-latest-20200428
Ludovic Courtès 7 years ago
parent
commit
3698f524d5
  1. 8
      guix/store.scm

8
guix/store.scm

@ -917,10 +917,14 @@ permission bits are kept."
(guile-for-build (%guile-for-build))
(system (%current-system)))
"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)
(%current-system system))
(run-with-state mval store)))
(call-with-values (lambda ()
(run-with-state mval store))
(lambda (result store)
;; Discard the state.
result))))
;;;

Loading…
Cancel
Save