From fef17af2437a8584d0435c94d85b9619b5264219 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 5 Aug 2025 20:18:49 +0200
Subject: Use MonadStorage for storeSetAdd

Changelog: API: `Set.storeSetAdd` uses `MonadStorage` instead explicit `Storage` parameter
---
 main/Test.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'main')

diff --git a/main/Test.hs b/main/Test.hs
index 323b240..9f52020 100644
--- a/main/Test.hs
+++ b/main/Test.hs
@@ -378,7 +378,7 @@ cmdStoredSetAdd = do
         [Just iref, Just sref] -> return (wrappedLoad iref, loadSet @[Stored Object] sref)
         [Just iref] -> return (wrappedLoad iref, emptySet)
         _ -> fail "unexpected parameters"
-    set' <- storeSetAdd st [item] set
+    set' <- storeSetAdd [ item ] set
     cmdOut $ "stored-set-add" ++ concatMap ((' ':) . show . refDigest . storedRef) (toComponents set')
 
 cmdStoredSetList :: Command
-- 
cgit v1.2.3