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-core".
The branch, master has been updated
via 2e78d4b0ab1548dec424d6782d0c4b13cb32dd6a (commit)
from f165ad8472b4f10eb8435403a9c48881890754ba (commit)
Summary of changes:
src/Snap/Iteratee.hs | 3 +--
src/Snap/Util/GZip.hs | 2 +-
2 files changed, 2 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 2e78d4b0ab1548dec424d6782d0c4b13cb32dd6a
Author: Mighty Byte <[email protected]>
Date: Wed May 26 22:11:53 2010 -0400
Squashed some warnings.
diff --git a/src/Snap/Iteratee.hs b/src/Snap/Iteratee.hs
index 27ff427..8be62d3 100644
--- a/src/Snap/Iteratee.hs
+++ b/src/Snap/Iteratee.hs
@@ -48,7 +48,6 @@ import qualified Data.ByteString as S
import qualified Data.ByteString.Unsafe as S
import qualified Data.ByteString.Lazy as L
import Data.Iteratee
-import Data.Iteratee.IO (enumHandle)
import qualified Data.Iteratee.Base.StreamChunk as SC
import Data.Iteratee.WrappedByteString
import Data.Monoid (mappend)
@@ -177,7 +176,7 @@ unsafeBufferIteratee iteratee = do
runIter iter $ Chunk $ WrapBS s
copy c@(EOF _) = c
- copy c@(Chunk (WrapBS s)) = Chunk $ WrapBS $ S.copy s
+ copy (Chunk (WrapBS s)) = Chunk $ WrapBS $ S.copy s
f _ _ iter ch@(EOF (Just _)) = runIter iter ch
diff --git a/src/Snap/Util/GZip.hs b/src/Snap/Util/GZip.hs
index 42c1de2..3c26c54 100644
--- a/src/Snap/Util/GZip.hs
+++ b/src/Snap/Util/GZip.hs
@@ -300,7 +300,7 @@ acceptParser = do
coding = string "*" <|> takeWhile isCodingChar
- isCodingChar c = isAlpha_ascii c || c == '-'
+ isCodingChar ch = isAlpha_ascii ch || ch == '-'
float = takeWhile isDigit >>
option () (char '.' >> takeWhile isDigit >> pure ())
-----------------------------------------------------------------------
hooks/post-receive
--
snap-core
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
