diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-08-05 20:18:49 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-08-05 20:18:49 +0200 |
| commit | fef17af2437a8584d0435c94d85b9619b5264219 (patch) | |
| tree | 31f4e63f69c5660544560be9f3c45a5635ad1824 /main | |
| parent | 102acebc7c09af60851344ea64b4df5b6b6a9807 (diff) | |
Use MonadStorage for storeSetAdd
Changelog: API: `Set.storeSetAdd` uses `MonadStorage` instead explicit `Storage` parameter
Diffstat (limited to 'main')
| -rw-r--r-- | main/Test.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |