+ Add basic bench.

1 files changed, 17 insertions, 0 deletions

diff --git a/bench/Main.hs b/bench/Main.hs
new file mode 100644
index 00000000..411282a0
--- /dev/null
+++ b/bench/Main.hs
@@ -0,0 +1,17 @@
+{-# LANGUAGE OverloadedStrings #-}
+module Main (main) where
+
+import Criterion.Main
+import Remote.KRPC
+
+
+addr :: RemoteAddr
+addr = (0, 6000)
+
+echo :: Method [Int] [Int]
+echo = method "echo" ["x"] ["x"]
+
+main :: IO ()
+main = defaultMain $ map mkbench [1, 10, 100, 1000]
+  where
+    mkbench n = bench (show n) $ nfIO $ call addr echo [1..n]
\ No newline at end of file