From 4bbfb31292e049cd6a09301968bd21271afaacc9 Mon Sep 17 00:00:00 2001
From: Piotr Szarmanski
Date: Thu, 3 Aug 2023 21:54:17 +0200
Subject: Add default method to fetch-data and store-data, remove redundant
 methods.

---
 src/file-backend.lisp | 18 ------------------
 1 file changed, 18 deletions(-)

(limited to 'src/file-backend.lisp')

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)))
-- 
cgit v1.2.3