withRequest :: OpCode -> Key -> Word8 -> (Ptr Request -> IO ())
            -> Int -> (Ptr Request -> IO ()) -> CAS
            -> (Handle -> Ptr Header -> IO a) -> Failure a -> Handle -> IO a
withRequest op key elen epoke vlen vpoke cas success failure h = do
    sendRequest  op key elen epoke vlen vpoke 0 cas h
    peekResponse (success h) failure h
withRequest :: OpCode -> Key -> Word8 -> (Ptr Request -> IO ())
            -> Int -> (Ptr Request -> IO ()) -> CAS
            -> (Handle -> Ptr Header -> IO a) -> Failure a -> Handle -> IO a
withRequest op key elen epoke vlen vpoke cas success failure h = do
    sendRequest  op key elen epoke vlen vpoke 0 cas h
    peekResponse (success h) failure h
withRequest op key elen epoke vlen vpoke cas success failure h = do
    sendRequest  op key elen epoke vlen vpoke 0 cas h
    peekResponse (success h) failure h