saslListMechs :: (S.ByteString -> IO a) -> Failure a
              -> Handle -> IO a
saslListMechs success failure =
    withRequest opSaslListMechs "" 0 nop 0 nop (CAS 0)
    (\h p -> getTotalLength p >>= S.hGet h . fromIntegral >>= success)
    failure
saslListMechs :: (S.ByteString -> IO a) -> Failure a
              -> Handle -> IO a
saslListMechs success failure =
    withRequest opSaslListMechs "" 0 nop 0 nop (CAS 0)
    (\h p -> getTotalLength p >>= S.hGet h . fromIntegral >>= success)
    failure
saslListMechs success failure =
    withRequest opSaslListMechs "" 0 nop 0 nop (CAS 0)
    (\h p -> getTotalLength p >>= S.hGet h . fromIntegral >>= success)
    failure