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 a835e4e7cd630e12e489e58995ae4fda22463f07 (commit)
from 7a122e4cb3c2a09a06764c4bb9ec9d6329dc125c (commit)
Summary of changes:
test/pongserver/Main.hs | 10 +++++++---
1 files changed, 7 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 a835e4e7cd630e12e489e58995ae4fda22463f07
Author: Gregory Collins <[email protected]>
Date: Mon Oct 25 18:08:49 2010 +0200
De-fubar pongserver
diff --git a/test/pongserver/Main.hs b/test/pongserver/Main.hs
index 010f52f..256a5df 100644
--- a/test/pongserver/Main.hs
+++ b/test/pongserver/Main.hs
@@ -8,10 +8,10 @@ import Snap.Iteratee
import Snap.Types
import Snap.Http.Server
import Snap.Util.GZip
+
-- FIXME: need better primitives for output
pongServer :: Snap ()
-pongServer = withCompression $
- modifyResponse $ setResponseBody (enumBS "PONG") .
+pongServer = modifyResponse $ setResponseBody (enumBS "PONG") .
setContentType "text/plain" .
setContentLength 4
@@ -26,4 +26,8 @@ main = do
return ()
where
- go m = quickHttpServe pongServer `finally` putMVar m ()
+ go m = httpServe config pongServer `finally` putMVar m ()
+ config = setPort 8000 $
+ setErrorLog Nothing $
+ setAccessLog Nothing $
+ setCompression False $ emptyConfig
-----------------------------------------------------------------------
hooks/post-receive
--
snap-server
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
