From f8977f9f8bc0d018fc0c7b66cbb86312eedd1325 Mon Sep 17 00:00:00 2001 From: Puck Meerburg Date: Fri, 4 Oct 2024 16:04:41 +0000 Subject: [PATCH] (zilch nix daemon): remove unused procedure --- core/src/nix/daemon.sld | 23 ++--------------------- 1 file changed, 2 insertions(+), 21 deletions(-) diff --git a/core/src/nix/daemon.sld b/core/src/nix/daemon.sld index 2f1b794..bc65fa9 100644 --- a/core/src/nix/daemon.sld +++ b/core/src/nix/daemon.sld @@ -16,8 +16,8 @@ *logger* daemon-wop-handshake daemon-wop-set-options - daemon-wop-add-text-to-store daemon-wop-add-to-store-nar - daemon-wop-build-paths daemon-wop-query-derivation-output-map) + daemon-wop-add-text-to-store daemon-wop-build-paths + daemon-wop-query-derivation-output-map) (begin (define-record-type @@ -212,25 +212,6 @@ (daemon-read-log-events 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) (daemon-write-u64 link 41) (daemon-write-string link store-path)