3 files changed, 53 insertions, 11 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
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 @@
+{-# LANGUAGE OverloadedStrings #-}
+module Main (main) where
+
+import Remote.KRPC
+
+
+echo :: Method [Int] [Int]
+echo = method "echo" ["x"] ["x"]
+
+main :: IO ()
+main = server 6000 [ echo ==> return ]
diff --git a/krpc.cabal b/krpc.cabal
index 0c63711f..97c903b9 100644
--- a/krpc.cabal
+++ b/krpc.cabal
@@ -13,6 +13,11 @@ bug-reports:           https://github.com/pxqr/krpc/issues
 synopsis:              KRPC remote procedure call protocol implementation.
 description:           KRPC remote procedure call protocol implementation.
 
+source-repository head
+  type:                git
+  location:            https://github.com/pxqr/krpc.git
+
+
 
 library
   exposed-modules:     Remote.KRPC
@@ -38,22 +43,31 @@ library
 
 
 
-executable echo-client
+
+executable exsample-client
   main-is:             Client.hs
   other-modules:       Shared
-
-  build-depends:       base        == 4.*
-                     , krpc
-
+  build-depends:       base        == 4.*, krpc
   hs-source-dirs:      examples
 
-
-
-executable echo-server
+executable exsample-server
   main-is:             Server.hs
   other-modules:       Shared
+  build-depends:       base        == 4.*, krpc
+  hs-source-dirs:      examples
 
-  build-depends:       base        == 4.*
-                     , krpc
 
-  hs-source-dirs:      examples
+
+
+executable bench-server
+  main-is:             Server.hs
+  build-depends:       base        == 4.*, krpc
+  hs-source-dirs:      bench
+  ghc-options:         -O2
+
+benchmark bench-client
+  type:                exitcode-stdio-1.0
+  main-is:             Main.hs
+  hs-source-dirs:      bench
+  build-depends:       base == 4.5.*, krpc, criterion
+  ghc-options:         -O2
\ No newline at end of file