[Snap Framework] snap branch, master, updated. 0b7b0484a792d9712627b1e9db0ae8bd53d1656c

noreply at snapframework.com noreply at snapframework.com
Sun Jul 18 13:04:55 CDT 2010


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 <chowells at others.local>
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


More information about the Snap mailing list