gistfile1.hs

mport Client

add :: RpcMethod (Int -> Int -> IO Int)
add  = method "add"

echo :: RpcMethod (String -> IO String)
echo = method "echo"

main :: IO ()
main = do
  conn <- connect "127.0.0.1" 8080
  ret <- add conn 1 2
  print ret
  ret <- echo conn "Hello, MessagePack World!"
  print ret