NetSNMP 0.3.0.1 → 0.3.0.2
raw patch · 2 files changed
+15/−9 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- NetSNMP.cabal +1/−1
- src/Network/Protocol/NetSNMP.hsc +14/−8
NetSNMP.cabal view
@@ -1,6 +1,6 @@ Name: NetSNMP-Version: 0.3.0.1+Version: 0.3.0.2 Synopsis: Bindings for net-snmp's C API for clients Description: Network.Protocol.NetSNMP is a partial binding to the library portion of the net-snmp package. It uses the
src/Network/Protocol/NetSNMP.hsc view
@@ -4,12 +4,10 @@ ---------------------------------------------------------------------- -- | -- Module : Network.Protocol.NetSNMP--- Copyright : 2009 John Dorsey--- --- Maintainer : John Dorsey <haskell@colquitt.org>+--+-- Maintainer : Pavlo Kerestey <pavlo@kerestey.net> -- Portability : portable--- Stability : provisional--- +-- -- This is a binding to Net-SNMP version 5, <http://www.net-snmp.org/>. {- License: BSD3. See included LICENSE and README files. -}@@ -258,6 +256,8 @@ readyCommunitySession version hostname community session = do community_len <- t_strlen community t_snmp_sess_init session+ pokeSessRetries session 3+ pokeSessTimeout session 10000000 pokeSessPeername session hostname pokeSessVersion session (unSnmpVersion version) pokeSessCommunity session community@@ -626,16 +626,22 @@ peekVariableValLen :: Ptr CVarList -> Trouble CSize peekVariableValLen rv = hoistT $ #{peek struct variable_list, val_len} rv -pokeSessPeername :: Ptr SnmpSession -> CString -> Trouble ()+pokeSessRetries :: Ptr SnmpSession -> CInt -> Trouble ()+pokeSessRetries s h = hoistT $ #{poke struct snmp_session , retries} s h++pokeSessTimeout :: Ptr SnmpSession -> CLong -> Trouble ()+pokeSessTimeout s h = hoistT $ #{poke struct snmp_session , timeout} s h++pokeSessPeername :: Ptr SnmpSession -> CString -> Trouble () pokeSessPeername s h = hoistT $ #{poke struct snmp_session , peername} s h -pokeSessVersion :: Ptr SnmpSession -> CLong -> Trouble ()+pokeSessVersion :: Ptr SnmpSession -> CLong -> Trouble () pokeSessVersion s v = hoistT $ #{poke struct snmp_session , version} s v pokeSessCommunity :: Ptr SnmpSession -> CString -> Trouble () pokeSessCommunity s c = hoistT $ #{poke struct snmp_session , community} s c -pokeSessCommLen :: Ptr SnmpSession -> CSize -> Trouble ()+pokeSessCommLen :: Ptr SnmpSession -> CSize -> Trouble () pokeSessCommLen s l = hoistT $ #{poke struct snmp_session , community_len} s l pokePDUVersion :: Ptr SnmpPDU -> CLong -> Trouble ()