From d2ae2c6c1737b824d3f7d46cb2d0fe994d1ee028 Mon Sep 17 00:00:00 2001 From: philopon Date: Wed, 27 Aug 2014 14:36:04 +0900 Subject: [PATCH] remove debug print. --- memcached-binary.cabal | 2 +- src/Database/Memcached/Binary/Internal.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/memcached-binary.cabal b/memcached-binary.cabal index 75a10c2..77ba1ee 100644 --- a/memcached-binary.cabal +++ b/memcached-binary.cabal @@ -1,5 +1,5 @@ name: memcached-binary -version: 0.1.1 +version: 0.1.1.1 synopsis: memcached client using binary protocol. description: memcached client using binary protocol. license: MIT diff --git a/src/Database/Memcached/Binary/Internal.hs b/src/Database/Memcached/Binary/Internal.hs index dbda76a..f65def6 100644 --- a/src/Database/Memcached/Binary/Internal.hs +++ b/src/Database/Memcached/Binary/Internal.hs @@ -36,7 +36,7 @@ withConnection i m = withSocketsDo $ bracket (connect i) close m connect :: ConnectInfo -> IO Connection connect i = fmap Connection $ - createPool (putStrLn "open" >> connect' i) (\h -> putStrLn "closed" >> quit h >> hClose h) 1 + createPool (connect' i) (\h -> quit h >> hClose h) 1 (connectionIdleTime i) (numConnection i) connect' :: ConnectInfo -> IO Handle