verbosity :: IO a -> Failure a -> Word32 -> Handle -> IO a
verbosity success failure v = withRequest opVerbosity ""
    4 (flip pokeWord32be v) 0 nop (CAS 0) (\_ _ -> success) failure
verbosity :: IO a -> Failure a -> Word32 -> Handle -> IO a
verbosity success failure v = withRequest opVerbosity ""
    4 (flip pokeWord32be v) 0 nop (CAS 0) (\_ _ -> success) failure
verbosity success failure v = withRequest opVerbosity ""
    4 (flip pokeWord32be v) 0 nop (CAS 0) (\_ _ -> success) failure