Add default method to fetch-data and store-data, remove redundant methods.

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)))