haskell/memcached-binary
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove debug print.

Browse Source
This commit is contained in:
philopon 2014-08-27 14:36:04 +09:00
parent ab3498b35d
commit d2ae2c6c17
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
memcached-binary.cabal
View File

@ -1,5 +1,5 @@
name: memcached-binary name: memcached-binary
version: 0.1.1 version: 0.1.1.1
synopsis: memcached client using binary protocol. synopsis: memcached client using binary protocol.
description: memcached client using binary protocol. description: memcached client using binary protocol.
license: MIT license: MIT

2
src/Database/Memcached/Binary/Internal.hs
View File

@ -36,7 +36,7 @@ withConnection i m = withSocketsDo $ bracket (connect i) close m
connect :: ConnectInfo -> IO Connection connect :: ConnectInfo -> IO Connection
connect i = fmap 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) (connectionIdleTime i) (numConnection i)
connect' :: ConnectInfo -> IO Handle connect' :: ConnectInfo -> IO Handle