store: Add 'optimize-store' RPC.
* guix/store.scm (operation-id): Add 'optimize-store'. (optimize-store): New procedure.master
parent
368d08f747
commit
e3fd0ce696
|
@ -90,6 +90,7 @@
|
||||||
references
|
references
|
||||||
requisites
|
requisites
|
||||||
referrers
|
referrers
|
||||||
|
optimize-store
|
||||||
topologically-sorted
|
topologically-sorted
|
||||||
valid-derivers
|
valid-derivers
|
||||||
query-derivation-outputs
|
query-derivation-outputs
|
||||||
|
@ -171,7 +172,8 @@
|
||||||
(query-substitutable-path-infos 30)
|
(query-substitutable-path-infos 30)
|
||||||
(query-valid-paths 31)
|
(query-valid-paths 31)
|
||||||
(query-substitutable-paths 32)
|
(query-substitutable-paths 32)
|
||||||
(query-valid-derivers 33))
|
(query-valid-derivers 33)
|
||||||
|
(optimize-store 34))
|
||||||
|
|
||||||
(define-enumerate-type hash-algo
|
(define-enumerate-type hash-algo
|
||||||
;; hash.hh
|
;; hash.hh
|
||||||
|
@ -760,6 +762,12 @@ substitutable. For each substitutable path, a `substitutable?' object is
|
||||||
returned."
|
returned."
|
||||||
substitutable-path-list))
|
substitutable-path-list))
|
||||||
|
|
||||||
|
(define-operation (optimize-store)
|
||||||
|
"Optimize the store by hard-linking identical files (\"deduplication\".)
|
||||||
|
Return #t on success."
|
||||||
|
;; Note: the daemon in Guix <= 0.8.2 does not implement this RPC.
|
||||||
|
boolean)
|
||||||
|
|
||||||
(define (run-gc server action to-delete min-freed)
|
(define (run-gc server action to-delete min-freed)
|
||||||
"Perform the garbage-collector operation ACTION, one of the
|
"Perform the garbage-collector operation ACTION, one of the
|
||||||
`gc-action' values. When ACTION is `delete-specific', the TO-DELETE is
|
`gc-action' values. When ACTION is `delete-specific', the TO-DELETE is
|
||||||
|
|
Reference in New Issue