noOp :: IO a -> Failure a -> Handle -> IO a
noOp success =
    withRequest opNoOp "" 0 nop 0 nop (CAS 0) (\_ _ -> success)
noOp :: IO a -> Failure a -> Handle -> IO a
noOp success =
    withRequest opNoOp "" 0 nop 0 nop (CAS 0) (\_ _ -> success)
noOp success =
    withRequest opNoOp "" 0 nop 0 nop (CAS 0) (\_ _ -> success)