diff options
Diffstat (limited to 'bench/Server.hs')
-rw-r--r-- | bench/Server.hs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/bench/Server.hs b/bench/Server.hs new file mode 100644 index 00000000..cb5ed316 --- /dev/null +++ b/bench/Server.hs | |||
@@ -0,0 +1,11 @@ | |||
1 | {-# LANGUAGE OverloadedStrings #-} | ||
2 | module Main (main) where | ||
3 | |||
4 | import Remote.KRPC | ||
5 | |||
6 | |||
7 | echo :: Method [Int] [Int] | ||
8 | echo = method "echo" ["x"] ["x"] | ||
9 | |||
10 | main :: IO () | ||
11 | main = server 6000 [ echo ==> return ] | ||