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 ca7ba77e7475537bca7f5d906b78700b180004c4 (commit)
from b94c9eba90e6796b8016629cc9157080e4c8e0bd (commit)
Summary of changes:
src/Snap/Internal/Http/Server.hs | 7 ++++---
1 files changed, 4 insertions(+), 3 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 ca7ba77e7475537bca7f5d906b78700b180004c4
Author: Mighty Byte <[email protected]>
Date: Sun Dec 12 18:41:39 2010 -0500
Fixed small screw-ups.
diff --git a/src/Snap/Internal/Http/Server.hs b/src/Snap/Internal/Http/Server.hs
index 209a901..31458ba 100644
--- a/src/Snap/Internal/Http/Server.hs
+++ b/src/Snap/Internal/Http/Server.hs
@@ -142,7 +142,7 @@ httpServe ports mevType localHostname alogPath elogPath
handler =
logE elog $ S.concat [ "Server.httpServe: START ("
, toBS $ Prelude.show evType, ")"]
- let isHttps = case p of { (HttpsPort _ _ _ _) -> True; _ -> False;}
+ let isHttps p = case p of { (HttpsPort _ _ _ _) -> True; _ -> False;}
let initHttps = foldr (\p b -> b || isHttps p) False ports
if initHttps
@@ -340,8 +340,9 @@ httpSession writeEnd' ibuf onSendFile tickle handler = do
liftIO $ debug "Server.httpSession: handled, skipping request body"
if rspTransformingRqBody rsp
- then liftIO $ debug "Server.httpSession: not skipping " ++
- "request body, transforming."
+ then liftIO $ debug $
+ "Server.httpSession: not skipping " ++
+ "request body, transforming."
else do
srqEnum <- liftIO $ readIORef $ rqBody req'
let (SomeEnumerator rqEnum) = srqEnum
-----------------------------------------------------------------------
hooks/post-receive
--
snap-server
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
