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 a77fc64fada3c5b0eeb8e39bb8e077939bfdf665 (commit)
from 46311d3eaa4925d36875ea2dbd570d8b4d3e9597 (commit)
Summary of changes:
test/suite/Snap/Iteratee/Tests.hs | 14 +++++++-------
1 files changed, 7 insertions(+), 7 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 a77fc64fada3c5b0eeb8e39bb8e077939bfdf665
Author: Gregory Collins <[email protected]>
Date: Tue Aug 31 17:46:07 2010 -0400
..and update testsuite
diff --git a/test/suite/Snap/Iteratee/Tests.hs
b/test/suite/Snap/Iteratee/Tests.hs
index 60bc39e..a75be5b 100644
--- a/test/suite/Snap/Iteratee/Tests.hs
+++ b/test/suite/Snap/Iteratee/Tests.hs
@@ -197,8 +197,8 @@ copyingStream2stream = IterateeG (step mempty)
bufferAndRun :: Iteratee IO a -> L.ByteString -> IO a
bufferAndRun ii s = do
- (i,_) <- unsafeBufferIteratee ii
- iter <- enumLBS s i
+ i <- unsafeBufferIteratee ii
+ iter <- enumLBS s i
run iter
@@ -219,7 +219,7 @@ testUnsafeBuffer2 :: Test
testUnsafeBuffer2 = testCase "testUnsafeBuffer2" prop
where
prop = do
- (i,_) <- unsafeBufferIteratee $ drop 4 >> copyingStream2stream
+ i <- unsafeBufferIteratee $ drop 4 >> copyingStream2stream
s <- enumLBS "abcdefgh" i >>= run >>= return . fromWrap
H.assertEqual "s == 'efgh'" "efgh" s
@@ -244,13 +244,13 @@ testUnsafeBuffer4 = testProperty "testUnsafeBuffer4" $
monadicIO $ forAllM arbitrary prop
where
prop s = do
- (i,_) <- liftQ $
- unsafeBufferIteratee (copyingStream2stream >> throwErr (Err
"foo"))
+ i <- liftQ $
+ unsafeBufferIteratee (copyingStream2stream >> throwErr (Err
"foo"))
i' <- liftQ $ enumLBS s i
expectException $ run i'
- (j,_) <- liftQ $
- unsafeBufferIteratee (throwErr (Err "foo") >>
copyingStream2stream)
+ j <- liftQ $
+ unsafeBufferIteratee (throwErr (Err "foo") >>
copyingStream2stream)
j' <- liftQ $ enumLBS s j
expectException $ run j'
-----------------------------------------------------------------------
hooks/post-receive
--
snap-core
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
