diff options
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 |