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 46f3719f6be6acdc8ce5c57c305bea562d806cfc (commit)
from 0d636df731570db814f2a7a1be3fc09569e09517 (commit)
Summary of changes:
project_template/hint/src/Main.hs | 10 +++++-----
1 files changed, 5 insertions(+), 5 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 46f3719f6be6acdc8ce5c57c305bea562d806cfc
Author: Carl Howells <[email protected]>
Date: Wed Jun 30 15:17:17 2010 -0700
Update to work with new version of Snap.Http.Server.Config
diff --git a/project_template/hint/src/Main.hs
b/project_template/hint/src/Main.hs
index da0c02b..939bfa6 100644
--- a/project_template/hint/src/Main.hs
+++ b/project_template/hint/src/Main.hs
@@ -1,7 +1,7 @@
{-# LANGUAGE CPP, TemplateHaskell #-}
module Main where
-import Data.Monoid (mappend, mconcat)
+import Data.Monoid (mappend, mempty)
import Config (getConfig, cleanupConfig)
import Site (site)
@@ -19,10 +19,10 @@ main :: IO ()
main = do
(cleanup, snap) <- $(loadSnapTH 'getConfig 'cleanupConfig 'site)
- let defaultFlags = mconcat [ flagV -- verbose
- , flagAL "log/access.log"
- , flagEL "log/error.log"
- ]
+ let defaultFlags = mempty { flagVerbose = True
+ , flagAccessLog = Just "log/access.log"
+ , flagErrorLog = Just "log/error.log"
+ }
cmdLineFlags <- readFlagsFromCmdLineArgs
let conf = flagsToConfig $ defaultFlags `mappend` cmdLineFlags
-----------------------------------------------------------------------
hooks/post-receive
--
snap
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
