puck/zilch
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(zilch nix daemon): remove unused procedure

Browse source
This commit is contained in:
puck 2024-10-04 16:04:41 +00:00
parent 2ed428e37d
commit f8977f9f8b
1 changed files with 2 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

23
core/src/nix/daemon.sld
View file

@ -16,8 +16,8 @@
*logger* *logger*
daemon-wop-handshake daemon-wop-set-options daemon-wop-handshake daemon-wop-set-options
daemon-wop-add-text-to-store daemon-wop-add-to-store-nar daemon-wop-add-text-to-store daemon-wop-build-paths
daemon-wop-build-paths daemon-wop-query-derivation-output-map) daemon-wop-query-derivation-output-map)
(begin (begin
(define-record-type <daemon-link-settings> (define-record-type <daemon-link-settings>
@ -212,25 +212,6 @@
(daemon-read-log-events link) (daemon-read-log-events link)
(daemon-read-string link)) (daemon-read-string link))
;; Write a NAR (as bytevector) to the store. REFS is expected to be sorted.
(define (daemon-wop-add-to-store-nar link path deriver refs val ca)
(daemon-write-u64 link 39)
(daemon-write-string link path)
(if (eq? #f deriver) (daemon-write-string link "") (daemon-write-string link deriver))
(daemon-write-string link (string-append "sha256:" (hex (sha256 val))))
(daemon-write-u64 link (length refs))
(for-each (lambda (l) (daemon-write-string link l)) refs)
(daemon-write-u64 link 0)
(daemon-write-u64 link (bytevector-length val))
(daemon-write-u64 link 1)
(daemon-write-u64 link 0)
(daemon-write-string link ca)
(daemon-write-u64 link 0)
(daemon-write-u64 link 0)
(daemon-write-bytevector link val)
(daemon-flush link)
(daemon-read-log-events link))
(define (daemon-wop-query-derivation-output-map link store-path) (define (daemon-wop-query-derivation-output-map link store-path)
(daemon-write-u64 link 41) (daemon-write-u64 link 41)
(daemon-write-string link store-path) (daemon-write-string link store-path)