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 28689f30493adc3255fc9e909b940a8c517a42cb (commit)
from 2e31154c03621757f4850ec94ba1c6e42811b8aa (commit)
Summary of changes:
src/Snap/Iteratee.hs | 3 +--
1 files changed, 1 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 28689f30493adc3255fc9e909b940a8c517a42cb
Author: Gregory Collins <[email protected]>
Date: Sun May 30 00:30:04 2010 -0400
bufferIteratee: fix boneheaded unnecessary type conversion
diff --git a/src/Snap/Iteratee.hs b/src/Snap/Iteratee.hs
index c4321ad..78842c5 100644
--- a/src/Snap/Iteratee.hs
+++ b/src/Snap/Iteratee.hs
@@ -145,7 +145,7 @@ bufferIteratee = return . go (D.empty,0)
where
big = toWrap $ L.fromChunks [S.concat $ D.toList dl]
- f (!dl,!n) iter (Chunk ws) =
+ f (!dl,!n) iter (Chunk (WrapBS s)) =
if n' > blocksize
then do
iterv <- runIter iter (Chunk big)
@@ -155,7 +155,6 @@ bufferIteratee = return . go (D.empty,0)
Cont i Nothing -> return $ Cont (go (D.empty,0) i) Nothing
else return $ Cont (go (dl',n') iter) Nothing
where
- s = S.concat $ L.toChunks $ fromWrap ws
m = S.length s
n' = n+m
dl' = D.snoc dl s
-----------------------------------------------------------------------
hooks/post-receive
--
snap-core
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
