libssh2 0.2 → 0.2.0.1

raw patch · 3 files changed

+6/−6 lines, 3 files

Files

• libssh2.cabal +2/−1
• src/Network/SSH/Client/LibSSH2/Errors.chs +3/−0
• src/Network/SSH/Client/LibSSH2/Foreign.chs +1/−5

@@ -1,6 +1,6 @@ Name:                libssh2 -Version:             0.2+Version:             0.2.0.1  Synopsis:            FFI bindings to libssh2 SSH2 client library (http://libssh2.org/) @@ -61,6 +61,7 @@                        bytestring >= 0.9    Extra-libraries:     "ssh2"+  pkgconfig-depends:   libssh2 >= 1.2.8   GHC-Options:         -Wall      -- Other-modules:       

@@ -111,6 +111,9 @@ instance IntResult (Int, a, b, c) where   intResult = \(i, _, _, _) -> i +instance IntResult CInt where+  intResult = fromIntegral+ instance IntResult CLong where   intResult = fromIntegral 

@@ -291,11 +291,7 @@                            $ {# call channel_write_ex #} (toPointer ch)                                                           0                                                           (cstr `plusPtr` offset) -#ifdef mingw32_HOST_OS                                                          (fromIntegral len)-#else-                                                         len-#endif       if fromIntegral written < len          then go (offset + fromIntegral written) (len - fromIntegral written) cstr         else return ()@@ -364,7 +360,7 @@                   0                   (plusPtr buffer written)                   (fromIntegral size)-      send (written + fromIntegral sent) (size - sent) buffer+      send (written + fromIntegral sent) (size - fromIntegral sent) buffer      bufferSize = 0x100000