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 46ec8ee04c81d11eada727398d65de2ee6af3f25 (commit)
from c9e0d10ed2272cededb8f5936b9a130cb6710f3b (commit)
Summary of changes:
test/suite/Snap/Internal/Routing/Tests.hs | 2 +-
test/suite/Snap/Types/Tests.hs | 8 ++++----
test/suite/Snap/Util/FileServe/Tests.hs | 4 ++--
test/suite/Snap/Util/GZip/Tests.hs | 6 +++---
4 files changed, 10 insertions(+), 10 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 46ec8ee04c81d11eada727398d65de2ee6af3f25
Author: Gregory Collins <[email protected]>
Date: Sun May 23 18:15:39 2010 -0400
Fix snap-core testsuite
diff --git a/test/suite/Snap/Internal/Routing/Tests.hs
b/test/suite/Snap/Internal/Routing/Tests.hs
index 11d67f2..a3d1b64 100644
--- a/test/suite/Snap/Internal/Routing/Tests.hs
+++ b/test/suite/Snap/Internal/Routing/Tests.hs
@@ -69,7 +69,7 @@ mkRequest uri = do
go :: Snap a -> ByteString -> IO a
go m s = do
req <- mkRequest s
- run $ evalSnap m $ req
+ run $ evalSnap m req (const $ return ())
routes :: Snap ByteString
diff --git a/test/suite/Snap/Types/Tests.hs b/test/suite/Snap/Types/Tests.hs
index 28fcaeb..c04405a 100644
--- a/test/suite/Snap/Types/Tests.hs
+++ b/test/suite/Snap/Types/Tests.hs
@@ -91,13 +91,13 @@ mkRqWithBody = do
go :: Snap a -> IO (Request,Response)
go m = do
zomgRq <- mkZomgRq
- run $ runSnap m zomgRq
+ run $ runSnap m zomgRq (const $ return ())
goPath :: ByteString -> Snap a -> IO (Request,Response)
goPath s m = do
rq <- mkRequest s
- run $ runSnap m $ rq
+ run $ runSnap m rq (const $ return ())
goPathQuery :: ByteString
@@ -107,13 +107,13 @@ goPathQuery :: ByteString
-> IO (Request,Response)
goPathQuery s k v m = do
rq <- mkRequestQuery s k v
- run $ runSnap m $ rq
+ run $ runSnap m rq (const $ return ())
goBody :: Snap a -> IO (Request,Response)
goBody m = do
rq <- mkRqWithBody
- run $ runSnap m rq
+ run $ runSnap m rq (const $ return ())
testFail :: Test
diff --git a/test/suite/Snap/Util/FileServe/Tests.hs
b/test/suite/Snap/Util/FileServe/Tests.hs
index 335715b..c3efebf 100644
--- a/test/suite/Snap/Util/FileServe/Tests.hs
+++ b/test/suite/Snap/Util/FileServe/Tests.hs
@@ -39,13 +39,13 @@ getBody r = liftM fromWrap ((rspBodyToEnum $ rspBody r)
stream2stream >>= run)
go :: Snap a -> ByteString -> IO Response
go m s = do
rq <- mkRequest s
- liftM snd (run $ runSnap m rq)
+ liftM snd (run $ runSnap m rq (const $ return ()))
goIfModifiedSince :: Snap a -> ByteString -> ByteString -> IO Response
goIfModifiedSince m s lm = do
rq <- mkRequest s
let r = setHeader "if-modified-since" lm rq
- liftM snd (run $ runSnap m r)
+ liftM snd (run $ runSnap m r (const $ return ()))
mkRequest :: ByteString -> IO Request
diff --git a/test/suite/Snap/Util/GZip/Tests.hs
b/test/suite/Snap/Util/GZip/Tests.hs
index e3cc55c..b584b21 100644
--- a/test/suite/Snap/Util/GZip/Tests.hs
+++ b/test/suite/Snap/Util/GZip/Tests.hs
@@ -87,15 +87,15 @@ mkBadRq = do
goGZip, goCompress, goBad :: Snap a -> IO (Request,Response)
goGZip m = do
gzipRq <- mkGzipRq
- run $ runSnap m gzipRq
+ run $ runSnap m gzipRq (const $ return ())
goCompress m = do
compressRq <- mkCompressRq
- run $ runSnap m compressRq
+ run $ runSnap m compressRq (const $ return ())
goBad m = do
badRq <- mkBadRq
- run $ runSnap m badRq
+ run $ runSnap m badRq (const $ return ())
------------------------------------------------------------------------------
textPlain :: L.ByteString -> Snap ()
-----------------------------------------------------------------------
hooks/post-receive
--
snap-core
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
