~singpolyma/haskell-gnutls: These are ssize_t not size_t

d1da25f3a00ed830bd59ff03c9bc5927c6aac317 — Stephen Paul Weber 3 months ago f3c719a

These are ssize_t not size_t

The return negative for error cases and with newer GHCs lying causes a problem.

patch browse .tar.gz

1 files changed, 4 insertions(+), 3 deletions(-)

M lib/Network/Protocol/TLS/GNU/Foreign.chs

M lib/Network/Protocol/TLS/GNU/Foreign.chs => lib/Network/Protocol/TLS/GNU/Foreign.chs +4 -3

@@ 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
 
 -- }}}