touch :: (Flags -> Value -> IO a) -> Failure a -> OpCode
      -> Key -> Expiry -> Handle -> IO a
touch success failure op key e =
    withRequest op key 4 (flip pokeWord32be e) 0 nop (CAS 0)
    (getSuccessCallback success failure) failure
touch :: (Flags -> Value -> IO a) -> Failure a -> OpCode
      -> Key -> Expiry -> Handle -> IO a
touch success failure op key e =
    withRequest op key 4 (flip pokeWord32be e) 0 nop (CAS 0)
    (getSuccessCallback success failure) failure
touch success failure op key e =
    withRequest op key 4 (flip pokeWord32be e) 0 nop (CAS 0)
    (getSuccessCallback success failure) failure