summaryrefslogtreecommitdiff
path: root/bench/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'bench/Main.hs')
-rw-r--r--bench/Main.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/bench/Main.hs b/bench/Main.hs
index 13727ff9..8466f4a3 100644
--- a/bench/Main.hs
+++ b/bench/Main.hs
@@ -22,7 +22,7 @@ addr :: SockAddr
22addr = SockAddrInet 6000 (256 * 256 * 256 + 127) 22addr = SockAddrInet 6000 (256 * 256 * 256 + 127)
23 23
24main :: IO () 24main :: IO ()
25main = withManager addr [echo] $ \ m -> (`runReaderT` m) $ do 25main = withManager def addr [echo] $ \ m -> (`runReaderT` m) $ do
26 listen 26 listen
27 liftIO $ defaultMain (benchmarks m) 27 liftIO $ defaultMain (benchmarks m)
28 where 28 where