diff --git a/src/Network/Wai/Middleware/RedisCache.hs b/src/Network/Wai/Middleware/RedisCache.hs
--- a/src/Network/Wai/Middleware/RedisCache.hs
+++ b/src/Network/Wai/Middleware/RedisCache.hs
@@ -5,6 +5,9 @@
     , cacheNoBody
     , newCacheBackend
     , defaultCacheBackend
+    , defaultConnectInfo
+    , ConnectInfo(..)
+    , PortID (..)
     ) where
 
 import Network.Wai.Middleware.Cache (CacheBackend(..))
@@ -17,7 +20,7 @@
 import qualified Data.ByteString.Lazy      as LZ
 import           Data.IORef
 import           Data.Text                 (Text)
-import           Database.Redis            (ConnectInfo, Connection, connect,
+import           Database.Redis            (ConnectInfo(..), Connection, PortID(..), connect,
                                             get, runRedis, set, defaultConnectInfo)
 import           Network.HTTP.Types.Header (ResponseHeaders)
 import           Network.HTTP.Types.Status (Status (..))
@@ -44,13 +47,10 @@
 type CacheContainer = Connection
 type RedisCacheBackend = CacheBackend CacheContainer CacheKey CacheValue
 
-newCacheContainer :: Maybe ConnectInfo -> IO CacheContainer
-newCacheContainer m_info = case m_info of
-  Nothing -> connect defaultConnectInfo
-  Just info -> connect info
-
+newCacheContainer :: ConnectInfo -> IO CacheContainer
+newCacheContainer = connect
 
-newCacheBackend :: Maybe ConnectInfo
+newCacheBackend :: ConnectInfo
                 -> (Request -> ByteString -> IO Bool)
                 -> (Request -> Response -> IO ())
                 -> (Request -> Response -> IO ())
@@ -72,7 +72,7 @@
 -- | Cache Backend which cache all GET requests using local redis on standard port
 -- You should use `cacheNoBody` instead of `cache`
 defaultCacheBackend :: IO RedisCacheBackend
-defaultCacheBackend = newCacheBackend Nothing
+defaultCacheBackend = newCacheBackend defaultConnectInfo
                                       (\r _ -> return (requestMethod r == "GET"))
                                       (\_ _ -> return ())
                                       (\_ _ -> return ())
diff --git a/wai-middleware-caching-redis.cabal b/wai-middleware-caching-redis.cabal
--- a/wai-middleware-caching-redis.cabal
+++ b/wai-middleware-caching-redis.cabal
@@ -1,5 +1,5 @@
 name:                wai-middleware-caching-redis
-version:             0.1.0.0
+version:             0.2.0.0
 synopsis:            Cache Wai Middleware using Redis backend
 description:         Please see README.md
 homepage:            http://github.com/yogsototh/wai-middleware-caching/tree/master/wai-middleware-caching-redis#readme