This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "snap-server".
The branch, master has been updated
via b29cb45f59e596f08f1f5eb1154af539732a8a25 (commit)
from 5eb6c3dda4c9e8ee2070612fe26c3ce75248bed4 (commit)
Summary of changes:
src/Snap/Internal/Http/Server.hs | 31 +++++++++++++++++--------------
1 files changed, 17 insertions(+), 14 deletions(-)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit b29cb45f59e596f08f1f5eb1154af539732a8a25
Author: Gregory Collins <[email protected]>
Date: Sun May 23 12:35:00 2010 -0400
Add SCC pragmas to server
diff --git a/src/Snap/Internal/Http/Server.hs b/src/Snap/Internal/Http/Server.hs
index b9ef124..f740ff7 100644
--- a/src/Snap/Internal/Http/Server.hs
+++ b/src/Snap/Internal/Http/Server.hs
@@ -101,7 +101,7 @@ httpServe bindAddress bindPort localHostname alogPath
elogPath handler =
(\(alog, elog) -> spawnAll alog elog)
where
- spawnAll alog elog = do
+ spawnAll alog elog = {-# SCC "httpServe/spawnAll" #-} do
let n = numCapabilities
bracket (spawn n)
(\xs -> do
@@ -111,7 +111,7 @@ httpServe bindAddress bindPort localHostname alogPath
elogPath handler =
(runAll alog elog)
- runAll alog elog xs = do
+ runAll alog elog xs = {-# SCC "httpServe/runAll" #-} do
mapM_ f $ xs `zip` [0..]
mapM_ (takeMVar . snd) xs
where
@@ -123,6 +123,7 @@ httpServe bindAddress bindPort localHostname alogPath
elogPath handler =
putMVar mvar ()
goooo alog elog backend cpu =
+ {-# SCC "httpServe/goooo" #-}
let loop = go alog elog backend cpu >> loop
in loop
@@ -150,21 +151,23 @@ httpServe bindAddress bindPort localHostname alogPath
elogPath handler =
return (backends `zip` mvars)
- runOne alog elog backend cpu = Backend.withConnection backend cpu $ \conn
-> do
- debug "Server.httpServe.runOne: entered"
- let readEnd = Backend.getReadEnd conn
- writeEnd <- I.bufferIteratee $ Backend.getWriteEnd conn
+ runOne alog elog backend cpu =
+ Backend.withConnection backend cpu $ \conn ->
+ {-# SCC "httpServe/runOne" #-} do
+ debug "Server.httpServe.runOne: entered"
+ let readEnd = Backend.getReadEnd conn
+ writeEnd <- I.bufferIteratee $ Backend.getWriteEnd conn
- let raddr = Backend.getRemoteAddr conn
- let rport = Backend.getRemotePort conn
- let laddr = Backend.getLocalAddr conn
- let lport = Backend.getLocalPort conn
+ let raddr = Backend.getRemoteAddr conn
+ let rport = Backend.getRemotePort conn
+ let laddr = Backend.getLocalAddr conn
+ let lport = Backend.getLocalPort conn
- runHTTP localHostname laddr lport raddr rport
- alog elog readEnd writeEnd (Backend.sendFile conn)
- handler
+ runHTTP localHostname laddr lport raddr rport
+ alog elog readEnd writeEnd (Backend.sendFile conn)
+ handler
- debug "Server.httpServe.runHTTP: finished"
+ debug "Server.httpServe.runHTTP: finished"
go alog elog backend cpu = runOne alog elog backend cpu
-----------------------------------------------------------------------
hooks/post-receive
--
snap-server
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
