msgpack-rpc 0.3.1.1 → 0.3.1.2

raw patch · 2 files changed

+4/−4 lines, 2 files

Files

• msgpack-rpc.cabal +1/−1
• src/Network/MessagePackRpc/Client.hs +3/−3

@@ -1,5 +1,5 @@ Name:                msgpack-rpc-Version:             0.3.1.1+Version:             0.3.1.2 Synopsis:            A MessagePack-RPC Implementation Description:   A MessagePack-RPC Implementation <http://msgpack.org/>

@@ -66,9 +66,9 @@  -- | RPC error type data RpcError-  = ServerError Object -- ^ An error occurred at server+  = ServerError Object -- ^ Server error   | ResultTypeError String -- ^ Result type mismatch-  | ProtocolError String -- ^ A protocol error occurred+  | ProtocolError String -- ^ Protocol error   deriving (Eq, Ord, Typeable)  instance Exception RpcError@@ -98,7 +98,7 @@  rpcCall :: Connection -> String -> [Object] -> IO Object rpcCall Connection{ connHandle = h } m args = do-  msgid <- (`mod`2^(32::Int)) <$> randomIO :: IO Int+  msgid <- (`mod`2^(30::Int)) <$> randomIO :: IO Int   packToHandle' h $ put (0 ::Int, msgid, m, args)   unpackFromHandleI h $ do     (rtype, rmsgid, rerror, rresult) <- getI