flushWithin :: IO a -> Failure a -> Expiry -> Handle -> IO a
flushWithin success failure w =
    withRequest opFlush "" 4 (flip pokeWord32be w) 0 nop (CAS 0)
    (\_ _ -> success) failure
flushWithin :: IO a -> Failure a -> Expiry -> Handle -> IO a
flushWithin success failure w =
    withRequest opFlush "" 4 (flip pokeWord32be w) 0 nop (CAS 0)
    (\_ _ -> success) failure
flushWithin success failure w =
    withRequest opFlush "" 4 (flip pokeWord32be w) 0 nop (CAS 0)
    (\_ _ -> success) failure