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

fix close function of connection pool.

Browse Source
This commit is contained in:
philopon 2014-08-27 05:51:30 +09:00
parent 2edf80c0c5
commit a54f764761
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -65,7 +65,7 @@ close (Connection mv) = do
h <- swapMVar mv (error "connection already closed") h <- swapMVar mv (error "connection already closed")
quit h quit h
hClose h hClose h
close _ = return () close (ConnectionPool p) = destroyAllResources p
useConnection :: (Handle -> IO a) -> Connection -> IO a useConnection :: (Handle -> IO a) -> Connection -> IO a
useConnection f (Connection mv) = withMVar mv f useConnection f (Connection mv) = withMVar mv f