Permalink
Browse files

Revert back to numCapabilities threads for speed gains.

  • Loading branch information...
1 parent 6884408 commit aa03006b1b3d909e62efc6e5ee3c76a66cc9bcc4 @mightybyte mightybyte committed May 18, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Snap/Internal/Http/Server.hs
@@ -104,7 +104,7 @@ httpServe bindAddress bindPort localHostname alogPath elogPath handler =
where
spawnAll alog elog = do
- let n = max 1 $ numCapabilities `div` 2
+ let n = numCapabilities
bracket (spawn n)
(\xs -> do
logE elog "Server.httpServe: SHUTDOWN"

0 comments on commit aa03006

Please sign in to comment.