module Database.Redis.General
( RedisReply(..)
, keyExists
, keyExistsB
, keyDelete
, keyType
, keys
, keysB
, keyRandom
, 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 key = request h $ map toUTF8 ["DEL", key]
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"]
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"]