Allow to pass options from outside

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
 addr = SockAddrInet 6000 (256 * 256 * 256 + 127)
 
 main :: IO ()
-main = withManager addr [echo] $ \ m -> (`runReaderT` m) $ do
+main = withManager def addr [echo] $ \ m -> (`runReaderT` m) $ do
     listen
     liftIO $ defaultMain (benchmarks m)
   where