eeva/servant-ekg
1
0
Fork 0
mirror of https://github.com/haskell-servant/servant-ekg.git synced 2024-11-26 21:19:43 +01:00
Code Issues Projects Releases Wiki Activity

Bench more connections

Browse source
This commit is contained in:
Julian K. Arni 2016-05-13 17:38:14 +02:00
parent 6f129e331d
commit ddb47d7d5e
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
bench/Main.hs
View file

@ -32,7 +32,7 @@ servantEkgServer = do
benchApp :: IO Application -> IO () benchApp :: IO Application -> IO ()
benchApp app = withApplication app $ \port -> benchApp app = withApplication app $ \port ->
callCommand $ "wrk -c 2 -d 10s -s bench/wrk.lua -t 2 'http://localhost:" ++ show port ++ "'" callCommand $ "wrk -c 30 -d 20s --latency -s bench/wrk.lua -t 2 'http://localhost:" ++ show port ++ "'"
main :: IO () main :: IO ()
main = do main = do