krpc-0.3.0.0: bench/Server.hs

{-# LANGUAGE OverloadedStrings #-}
module Main (main) where

import Data.ByteString (ByteString)
import Network.KRPC


echo :: Method ByteString ByteString
echo = method "echo" ["x"] ["x"]

main :: IO ()
main = server 6000 [ echo ==> return ]