messagepack-rpc 0.1.0.3 → 0.2.0.0

raw patch · 3 files changed

+11/−8 lines, 3 filesdep −textdep ~messagepackPVP ok

version bump matches the API change (PVP)

Dependencies removed: text

Dependency ranges changed: messagepack

API changes (from Hackage documentation)

Files

• CHANGELOG +4/−0
• Network/MessagePack.hs +5/−5
• messagepack-rpc.cabal +2/−3

@@ -1,3 +1,7 @@+2015-06-26 Rodrigo Setti <rodrigosetti@gmail.com>++	* Fix to work with latest "messagepack", remove dependency on "text".+ 2014-11-17 Rodrigo Setti <rodrigosetti@gmail.com>  	* Ops: this dependency specification doesn't work

@@ -18,10 +18,10 @@ import Data.Maybe import Data.Serialize.Get import Network.Simple.TCP+import Data.ByteString.Char8 (pack, unpack) import qualified Data.ByteString as BS import qualified Data.Map as M import qualified Data.Serialize as S-import qualified Data.Text as T  type MsgId   = Int64 type MsgType = Int64@@ -41,7 +41,7 @@  -- | Start the RPC server binding the socket using the given preferences, and --   using the RPC methods defined in the map of method name -> Method.-runRPC :: M.Map T.Text Method -> HostPreference -> ServiceName -> IO ()+runRPC :: M.Map String Method -> HostPreference -> ServiceName -> IO () runRPC methods host service =      serve host service rpcServer   where@@ -62,7 +62,7 @@                                 Partial partial' -> go partial'                                 x                -> return x -executeRPC :: M.Map T.Text Method -> Object -> IO Object+executeRPC :: M.Map String Method -> Object -> IO Object executeRPC methods obj =     case getRPCData of     Left err -> return $ errorResponse errorMsgId err@@ -77,7 +77,7 @@                             when (type_ /= reqMessage) $ Left $ "invalid RPC type: " ++ show type_                              ObjectString methodName <- m .: "method"-                            method <- getMethod methods methodName+                            method <- getMethod methods $ unpack methodName                              ObjectInt msgid <- m .: "msgid"                             params          <- m .: "params"@@ -85,7 +85,7 @@         _              -> Left "invalid msgpack RPC request"  errorResponse :: MsgId -> String -> Object-errorResponse msgid err = response msgid (ObjectString $ T.pack err) ObjectNil+errorResponse msgid err = response msgid (ObjectString $ pack err) ObjectNil  resultResponse :: MsgId -> Object -> Object resultResponse msgid = response msgid ObjectNil

@@ -1,5 +1,5 @@ name               : messagepack-rpc-version            : 0.1.0.3+version            : 0.2.0.0 synopsis           : Message Pack RPC over TCP description        : Message Pack RPC over TCP homepage           : http://github.com/rodrigosetti/messagepack-rpc@@ -26,8 +26,7 @@                    , bytestring     == 0.10.*                    , cereal         == 0.4.*                    , containers     == 0.5.*-                   , messagepack    >= 0.2.1+                   , messagepack    == 0.4.*                    , network-simple == 0.4.*-                   , text           == 1.*   default-language : Haskell2010