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 0b7b0484a792d9712627b1e9db0ae8bd53d1656c (commit)
from c5da69ce8a030de31128654b3da4aa90b133ab7f (commit)
Summary of changes:
src/Snap/Loader/Hint.hs | 6 ++++--
1 files changed, 4 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 0b7b0484a792d9712627b1e9db0ae8bd53d1656c
Author: Carl Howells <[email protected]>
Date: Sun Jul 18 11:04:43 2010 -0700
Use prefix matching for eliminating blacklisted arguments to hint
diff --git a/src/Snap/Loader/Hint.hs b/src/Snap/Loader/Hint.hs
index a758861..1ca1911 100644
--- a/src/Snap/Loader/Hint.hs
+++ b/src/Snap/Loader/Hint.hs
@@ -82,9 +82,11 @@ getHintOpts :: [String] -> [String]
getHintOpts args = -- These hide-packages will go away with a new
-- version of hint
"-hide-package=mtl" : "-hide-package=MonadCatchIO-mtl" :
- filter (not . (`elem` bad)) opts
+ removeBad opts
where
- bad = ["-threaded"]
+ bad = ["-threaded", "-O"]
+ removeBad = filter (\x -> any (`isPrefixOf` x) bad)
+
hideAll = filter (== "-hide-all-packages") args
srcOpts = filter (\x -> "-i" `isPrefixOf` x
-----------------------------------------------------------------------
hooks/post-receive
--
snap
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
