blob: ece5a7a9a07b32fdc51ab266e3a266abfc9b8e89 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{-# LANGUAGE OverloadedStrings #-}
module Main (main) where
import Data.ByteString (ByteString)
import Remote.KRPC
echo :: Method ByteString ByteString
echo = method "echo" ["x"] ["x"]
main :: IO ()
main = server 6000 [ echo ==> return ]
|
