diff options
Diffstat (limited to 'src/file-backend.lisp')
| -rw-r--r-- | src/file-backend.lisp | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/src/file-backend.lisp b/src/file-backend.lisp index 1a1c5b0..6174cf7 100644 --- a/src/file-backend.lisp +++ b/src/file-backend.lisp @@ -54,21 +54,3 @@ (alexandria:write-byte-vector-into-file block file))) block)))) -(defmethod fetch-data (read-capability (backend file-backend) &key &allow-other-keys) - (declare (type read-capability read-capability)) - (with-slots (fetch-function) backend - (eris-decode read-capability fetch-function))) - -(defmethod store-data (input (backend file-backend) &key (secret null-secret) &allow-other-keys) - (declare (type octet-vector secret)) - (with-slots (output-function) backend - (eris-encode input - (if (> (etypecase input - (stream (file-length input)) - (vector (length input))) - (* 2 16384)) - 32kib - 1kib) - output-function - :hash-output nil - :secret secret))) |