perf_test.hs

import Database.Redis.Protocol
import Database.Redis.ConsistentHash

import Criterion.Main 

import System.IO

main = defaultMain [
        bgroup "con-hash" [ bench "getNode \"banana\"" $ whnf lookupServer "banana" ]
       ]
    where
      s h = Server h "1234" stdin
      ring = create [s "Server1",s "Server2",s "Server3",s "Server4",s "Server5"] 160
      lookupServer = getServer ring