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".
The branch, master has been updated
via 766199dda8cd7704185d4ee5e96d34f822ec81ea (commit)
from 1f9a875a834039f185e4b89ff941d90c4519a599 (commit)
Summary of changes:
src/Snap/Extension/Server.hs | 5 ++++-
1 files changed, 4 insertions(+), 1 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 766199dda8cd7704185d4ee5e96d34f822ec81ea
Author: Ozgun Ataman <[email protected]>
Date: Wed Dec 1 19:40:11 2010 -0500
* Snap.Extension.Server: Make sure there is a default listener in
completeConfig
diff --git a/src/Snap/Extension/Server.hs b/src/Snap/Extension/Server.hs
index ea642c3..c53ec85 100644
--- a/src/Snap/Extension/Server.hs
+++ b/src/Snap/Extension/Server.hs
@@ -103,7 +103,10 @@ defaultConfig = setReloadHandler handler C.defaultConfig
-- | Completes a partial 'Config' by filling in the unspecified values with
-- the default values from 'defaultConfig'.
completeConfig :: ConfigExtend s -> ConfigExtend s
-completeConfig = mappend defaultConfig
+completeConfig c = case getListen c' of
+ [] -> addListen (ListenHttp "0.0.0.0" 8000) c'
+ _ -> c'
+ where c' = mappend defaultConfig c
------------------------------------------------------------------------------
-----------------------------------------------------------------------
hooks/post-receive
--
snap
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
