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 47e4a02b17fbfa7b6c5f85fb20675db26d2d66f5 (commit)
from 0b7b0484a792d9712627b1e9db0ae8bd53d1656c (commit)
Summary of changes:
src/Snap/Heist.hs | 4 ++--
src/Snap/Loader/Hint.hs | 2 +-
2 files changed, 3 insertions(+), 3 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 47e4a02b17fbfa7b6c5f85fb20675db26d2d66f5
Author: Carl Howells <[email protected]>
Date: Sun Jul 18 12:15:08 2010 -0700
Correct hint argument filtering logic
diff --git a/src/Snap/Heist.hs b/src/Snap/Heist.hs
index decea5d..2693b1e 100644
--- a/src/Snap/Heist.hs
+++ b/src/Snap/Heist.hs
@@ -4,7 +4,7 @@
module Snap.Heist where
import Data.ByteString (ByteString)
-import qualified Data.ByteString.Char8 as S
+import qualified Data.ByteString as B
import Snap.Types
import Text.Templating.Heist
@@ -28,5 +28,5 @@ render contentType ts template = do
bytes <- renderTemplate ts template
flip (maybe pass) bytes $ \x -> do
modifyResponse $ setContentType contentType
- . setContentLength (fromIntegral $ S.length x)
+ . setContentLength (fromIntegral $ B.length x)
writeBS x
diff --git a/src/Snap/Loader/Hint.hs b/src/Snap/Loader/Hint.hs
index 1ca1911..9e5b8ab 100644
--- a/src/Snap/Loader/Hint.hs
+++ b/src/Snap/Loader/Hint.hs
@@ -85,7 +85,7 @@ getHintOpts args = -- These hide-packages will go away with a
new
removeBad opts
where
bad = ["-threaded", "-O"]
- removeBad = filter (\x -> any (`isPrefixOf` x) bad)
+ removeBad = filter (\x -> not $ any (`isPrefixOf` x) bad)
hideAll = filter (== "-hide-all-packages") args
-----------------------------------------------------------------------
hooks/post-receive
--
snap
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
