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 214bdf39bf9de02ff05cdda764a4a7ac64cff4ac (commit)
from b6c9a0652cb631beeb9165a310c1f636d1afd6f1 (commit)
Summary of changes:
src/Snap/Internal/Iteratee/Debug.hs | 6 +++---
1 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 214bdf39bf9de02ff05cdda764a4a7ac64cff4ac
Author: Dan <[email protected]>
Date: Thu Dec 9 05:45:30 2010 -0500
Changing iterateeDebugWrapper to take any instance of Show.
diff --git a/src/Snap/Internal/Iteratee/Debug.hs
b/src/Snap/Internal/Iteratee/Debug.hs
index 2668960..188e1fa 100644
--- a/src/Snap/Internal/Iteratee/Debug.hs
+++ b/src/Snap/Internal/Iteratee/Debug.hs
@@ -42,10 +42,10 @@ debugIteratee = continue f
#ifndef NODEBUG
-iterateeDebugWrapper :: (MonadIO m) =>
+iterateeDebugWrapper :: (Show a, MonadIO m) =>
String
- -> Iteratee ByteString m a
- -> Iteratee ByteString m a
+ -> Iteratee a m b
+ -> Iteratee a m b
iterateeDebugWrapper name iter = do
debug $ name ++ ": BEGIN"
step <- lift $ runIteratee iter
-----------------------------------------------------------------------
hooks/post-receive
--
snap-core
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
