From a0b30fd0ec248c2e08be6a12c0e31555b9a2754b Mon Sep 17 00:00:00 2001
From: philopon <philopon.dependence@gmail.com>
Date: Wed, 27 Aug 2014 08:42:45 +0900
Subject: [PATCH 1/2] pool only, use alloca for peek response header.

---
 src/Database/Memcached/Binary/Internal.hs | 25 +++++++----------------
 1 file changed, 7 insertions(+), 18 deletions(-)

diff --git a/src/Database/Memcached/Binary/Internal.hs b/src/Database/Memcached/Binary/Internal.hs
index e0c34ba..dbda76a 100644
--- a/src/Database/Memcached/Binary/Internal.hs
+++ b/src/Database/Memcached/Binary/Internal.hs
@@ -16,7 +16,6 @@ import System.IO
 
 import Control.Monad
 import Control.Exception
-import Control.Concurrent.MVar
 
 import Data.Word
 import Data.Pool
@@ -30,20 +29,15 @@ import Database.Memcached.Binary.Types
 import Database.Memcached.Binary.Types.Exception
 import Database.Memcached.Binary.Internal.Definition
 
-data Connection
-    = Connection (MVar Handle)
-    | ConnectionPool (Pool Handle)
+newtype Connection = Connection (Pool Handle)
 
 withConnection :: ConnectInfo -> (Connection -> IO a) -> IO a
 withConnection i m = withSocketsDo $ bracket (connect i) close m
 
 connect :: ConnectInfo -> IO Connection
-connect i =
-    if numConnection i == 1
-    then fmap Connection $ connect' i >>= newMVar
-    else fmap ConnectionPool $ 
-        createPool (connect' i) (\h -> quit h >> hClose h) 1 
-        (connectionIdleTime i) (numConnection i)
+connect i = fmap Connection $ 
+    createPool (putStrLn "open" >> connect' i) (\h -> putStrLn "closed" >> quit h >> hClose h) 1 
+    (connectionIdleTime i) (numConnection i)
 
 connect' :: ConnectInfo -> IO Handle
 connect' i = loop (connectAuth i)
@@ -61,15 +55,10 @@ connect' i = loop (connectAuth i)
             auth a (\_ -> return h) (\_ _ -> loop as) h
 
 close :: Connection -> IO ()
-close (Connection mv) = do
-    h <- swapMVar mv (error "connection already closed")
-    quit h
-    hClose h
-close (ConnectionPool p) = destroyAllResources p
+close (Connection p) = destroyAllResources p
 
 useConnection :: (Handle -> IO a) -> Connection -> IO a
-useConnection f (Connection    mv) = withMVar mv f
-useConnection f (ConnectionPool p) = withResource p f
+useConnection f (Connection p) = withResource p f
 
 pokeWord8 :: Ptr a -> Word8 -> IO ()
 pokeWord8 = poke . castPtr
@@ -141,7 +130,7 @@ sendRequest op key elen epoke vlen vpoke opaque cas h =
 type Failure a = Word16 -> S.ByteString -> IO a
 
 peekResponse :: (Ptr Header -> IO a) -> Failure a -> Handle -> IO a
-peekResponse success failure h = bracket (mallocBytes 24) free $ \p ->
+peekResponse success failure h = allocaBytes 24 $ \p ->
     hGetBuf h p 24 >> peekWord16be (plusPtr p 6) >>= \st ->
     if st == 0
         then success p

From fc478a12cd04b8aacb518e74d2d0171d742f6d82 Mon Sep 17 00:00:00 2001
From: philopon <philopon.dependence@gmail.com>
Date: Wed, 27 Aug 2014 08:43:17 +0900
Subject: [PATCH 2/2] bump

---
 memcached-binary.cabal | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/memcached-binary.cabal b/memcached-binary.cabal
index f922b9c..5aa727f 100644
--- a/memcached-binary.cabal
+++ b/memcached-binary.cabal
@@ -1,5 +1,5 @@
 name:                memcached-binary
-version:             0.1.0
+version:             0.1.1
 synopsis:            memcached client using binary protocol.
 license:             MIT
 license-file:        LICENSE