haskell-msgpackrpc

Example

{-#LANGUAGE NoImplicitPrelude #-}{-#LANGUAGE OverloadedStrings #-}importBasicPreludehiding (catch,finally,try)importControl.Monad.CatchimportqualifiedData.MapasMapimportNetwork.MsgpackRpc.Serverdefault (Text)-- This sums argumentssumMethod::Int->Int->RpcMethodTIOIntsumMethod a b=return$! a+ b-- This throws error to clienterrorMethod::RpcMethodTIOInterrorMethod= throwM$ rpcError".MyRpc.SomeCoolError" ("WAT!?"::Text)func::IO()func=dolet methodMap=Map.fromList            [              ("sum", rpcMethod sumMethod)            , ("error", rpcMethod errorMethod)            ]    serveRpc128 (serverSettings5252"*") methodMapmain::IO()main= func