blob: 411282a07335656f6daba92f6229486c9078a7c0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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]
|
