These are ssize_t not size_t

The return negative for error cases and with newer GHCs lying causes a problem.
This commit is contained in:
Stephen Paul Weber 2024-09-04 17:50:43 -05:00
parent f3c719ae44
commit d1da25f3a0
No known key found for this signature in database
GPG key ID: D11C2911CE519CDE

View file

@ -21,6 +21,7 @@ module Network.Protocol.TLS.GNU.Foreign where
import Foreign
import Foreign.C
import System.Posix.Types
-- Type aliases {{{
@ -224,13 +225,13 @@ foreign import ccall safe "gnutls_record_get_max_size"
gnutls_record_get_max_size :: Session -> IO CSize
foreign import ccall safe "gnutls_record_recv"
gnutls_record_recv :: Session -> Ptr a -> CSize -> IO CSize
gnutls_record_recv :: Session -> Ptr a -> CSize -> IO CSsize
foreign import ccall safe "gnutls_record_send"
gnutls_record_send :: Session -> Ptr a -> CSize -> IO CSize
gnutls_record_send :: Session -> Ptr a -> CSize -> IO CSsize
foreign import ccall safe "gnutls_record_set_max_size"
gnutls_record_set_max_size :: Session -> CSize -> IO CSize
gnutls_record_set_max_size :: Session -> CSize -> IO CSsize
-- }}}