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/hash-backend.lisp | 14 --------------
 1 file changed, 14 deletions(-)

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

diff --git a/src/hash-backend.lisp b/src/hash-backend.lisp
index 0fa095a..7568db3 100644
--- a/src/hash-backend.lisp
+++ b/src/hash-backend.lisp
@@ -35,18 +35,4 @@
                                     (copy-seq block))
                               block)))))
 
-(defmethod fetch-data (read-capability (backend hash-backend) &key &allow-other-keys)
-  (declare (type read-capability read-capability))
-  (with-slots (fetch-function) backend
-    (eris-decode read-capability fetch-function :cache-capacity nil)))
-
-(defmethod store-data (input (backend hash-backend) &key (secret null-secret) (block-size 1kib) &allow-other-keys)
-  (declare (type octet-vector secret))
-  (with-slots (output-function) backend
-    (eris-encode input
-                 block-size
-                 output-function
-                 :hash-output nil
-                 :secret secret)))
-
 
-- 
cgit v1.2.3