agentx 0.1.0.3 → 0.1.0.4

raw patch · 2 files changed

+4/−2 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• agentx.cabal +1/−1
• src/Network/Protocol/Snmp/AgentX/Handlers.hs +3/−1

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                agentx-version:             0.1.0.3+version:             0.1.0.4 synopsis:            AgentX protocol for write SNMP subagents description:         Native implementation agentx protocol (rfc2741)        license:             BSD3

@@ -1,4 +1,5 @@ {-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE ScopedTypeVariables #-} module Network.Protocol.Snmp.AgentX.Handlers  ( route ) where@@ -6,6 +7,7 @@ import Control.Applicative import Control.Monad.State import Control.Monad.Reader+import Control.Exception (RecSelError, handle) import qualified Data.Label as DL import qualified Data.Map as Map import Data.IORef@@ -104,7 +106,7 @@     where       testFun v = do           mib <- runMIBTree (findOne (DL.get vboid v) mcontext) -          testResult <- liftIO $ testSetAIO (val mib) (DL.get vbvalue v)+          testResult <- liftIO $ handle (\(_ :: RecSelError) -> return NotWritable) $ testSetAIO (val mib) (DL.get vbvalue v)           return $ if testResult == NoTestError                       then Right v                       else Left (Tagged testResult)