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