diff options
Diffstat (limited to 'bench/Main.hs')
-rw-r--r-- | bench/Main.hs | 2 |
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 | |||
22 | addr = SockAddrInet 6000 (256 * 256 * 256 + 127) | 22 | addr = SockAddrInet 6000 (256 * 256 * 256 + 127) |
23 | 23 | ||
24 | main :: IO () | 24 | main :: IO () |
25 | main = withManager addr [echo] $ \ m -> (`runReaderT` m) $ do | 25 | main = 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 |