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 0ec4710bd0e896a20f9ca1c5c91c0c779ca52dc0 (commit)
from 2717e49fa99616881b13e0ce831afea950a50a4b (commit)
Summary of changes:
src/Snap/Loader/Hint.hs | 2 --
1 files changed, 0 insertions(+), 2 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 0ec4710bd0e896a20f9ca1c5c91c0c779ca52dc0
Author: Carl Howells <[email protected]>
Date: Wed Jun 23 22:37:13 2010 -0700
Remove two debugging prints
diff --git a/src/Snap/Loader/Hint.hs b/src/Snap/Loader/Hint.hs
index 57216dc..0c0b247 100644
--- a/src/Snap/Loader/Hint.hs
+++ b/src/Snap/Loader/Hint.hs
@@ -36,7 +36,6 @@ import qualified Snap.Loader.Static as Static
loadSnapTH :: Name -> Name -> Q Exp
loadSnapTH initialize action = do
args <- runIO getArgs
- runIO $ print args
let initMod = nameModule initialize
initBase = nameBase initialize
@@ -85,7 +84,6 @@ getHintOpts args = "-hide-package=mtl" : filter (not .
(`elem` bad)) opts
-- | XXX
hintSnap :: [String] -> [String] -> String -> IO (Snap ())
hintSnap opts mNames action = do
- print opts
let interpreter = do
mapM_ unsafeSetGhcOption opts
loadModules . nub $ mNames
-----------------------------------------------------------------------
hooks/post-receive
--
snap
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
