appendPrepend :: IO a -> Failure a -> OpCode -> CAS
              -> Key -> Value -> Handle -> IO a
appendPrepend success failure op cas key value = withRequest op key 0 nop
    (fromIntegral $ L.length value) (flip pokeLazyByteString value)
    cas (\_ _ -> success) failure
appendPrepend :: IO a -> Failure a -> OpCode -> CAS
              -> Key -> Value -> Handle -> IO a
appendPrepend success failure op cas key value = withRequest op key 0 nop
    (fromIntegral $ L.length value) (flip pokeLazyByteString value)
    cas (\_ _ -> success) failure
appendPrepend success failure op cas key value = withRequest op key 0 nop
    (fromIntegral $ L.length value) (flip pokeLazyByteString value)
    cas (\_ _ -> success) failure