module Database.Redis.General
( RedisReply(..)
, keyExists
, keyExistsB
, keyDelete
, keyType
, keys
, keysB
, keyRandom
, keyRename
, select
, toUTF8
, ping
, unwrapReply
) where
import System.IO
import Database.Redis.Internal
keyExists :: Handle
-> String
-> IO (Maybe RedisReply)
keyExists h key = request h $ map toUTF8 ["EXISTS", key]
keyExistsB :: Handle
-> ByteString
-> IO (Maybe RedisReply)
keyExistsB h key = request h [toUTF8 "EXISTS", key]
keyDelete :: Handle
-> [String]
-> IO (Maybe RedisReply)
keyDelete h ks = request h $ map toUTF8 ("DEL":ks)
keyType :: Handle
-> String
-> IO (Maybe RedisReply)
keyType h key = request h $ map toUTF8 ["TYPE", key]
keys :: Handle
-> String
-> IO (Maybe RedisReply)
keys h pattern = request h $ map toUTF8 ["KEYS", pattern]
keysB :: Handle
-> ByteString
-> IO (Maybe RedisReply)
keysB h pattern = request h [toUTF8 "KEYS", pattern]
keyRandom :: Handle
-> IO (Maybe RedisReply)
keyRandom h = request h [toUTF8 "RANDOMKEY"]
keyRename :: Handle
-> String
-> String
-> IO (Maybe RedisReply)
keyRename h old new = request h $ map toUTF8 ["RENAME", old, new]
select :: Handle -> Int -> IO (Maybe RedisReply)
select h i = request h $ map toUTF8 ["SELECT", show i]
ping :: Handle -> IO (Maybe RedisReply)
ping h = request h $ map toUTF8 ["PING"]