redis-0.1: Database/Redis/Monad/State.hs

{-# LANGUAGE TypeSynonymInstances #-}
-- | This module is mainly an example of posible 'WithRedis'
-- implementation
module Database.Redis.Monad.State where

import Control.Monad.State
import Database.Redis.Monad (WithRedis(..), Redis)

-- | Trivial WithRedis instance storing Redis descriptor in StateT
type RedisM = StateT Redis IO

instance WithRedis RedisM where
    getRedis = get
    setRedis = put

runWithRedis :: Redis -> (RedisM a) -> IO a
runWithRedis = flip evalStateT