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