module Database.Redis.Set
( setAdd
, setAddB
, setRemove
, setRemoveB
, setContains
, setContainsB
, setMembers
, setMembersB
, setRandMember
, setRandMemberB
) where
import System.IO
import Database.Redis.Internal
setAdd :: Handle
-> String
-> String
-> IO (Maybe RedisReply)
setAdd h key value = request h $ map toUTF8 ["SADD", key, value]
setAddB :: Handle
-> ByteString
-> ByteString
-> IO (Maybe RedisReply)
setAddB h key value = request h [toUTF8 "SADD", key, value]
setRemove :: Handle
-> String
-> String
-> IO (Maybe RedisReply)
setRemove h key value = request h $ map toUTF8 ["SREM", key, value]
setRemoveB :: Handle
-> ByteString
-> ByteString
-> IO (Maybe RedisReply)
setRemoveB h key value = request h [toUTF8 "SREM", key, value]
setContains :: Handle
-> String
-> String
-> IO (Maybe RedisReply)
setContains h key value = request h $ map toUTF8 ["SISMEMBER", key, value]
setContainsB :: Handle
-> ByteString
-> ByteString
-> IO (Maybe RedisReply)
setContainsB h key value = request h [toUTF8 "SISMEMBER", key, value]
setMembers :: Handle
-> String
-> IO (Maybe RedisReply)
setMembers h key = request h $ map toUTF8 ["SMEMBERS", key]
setMembersB :: Handle
-> ByteString
-> IO (Maybe RedisReply)
setMembersB h key = request h [toUTF8 "SMEMBERS", key]
setRandMember :: Handle
-> String
-> IO (Maybe RedisReply)
setRandMember h key = request h $ map toUTF8 ["SMEMBERS", key]
setRandMemberB :: Handle
-> ByteString
-> IO (Maybe RedisReply)
setRandMemberB h key = request h [toUTF8 "SMEMBERS", key]