Fix types when NODEBUG is on

snapframework · Dec 22, 2010 · 9875cff · 9875cff
1 parent a352cd7
commit 9875cff
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Snap/Internal/Iteratee/Debug.hs b/src/Snap/Internal/Iteratee/Debug.hs
@@ -75,7 +75,10 @@ iterateeDebugWrapper name iter = do
 
 #else
 
-iterateeDebugWrapper :: String -> Iteratee IO a -> Iteratee IO a
+iterateeDebugWrapper :: (Show a, MonadIO m) =>
+                        String
+                     -> Iteratee a m b
+                     -> Iteratee a m b
 iterateeDebugWrapper _ = id
 {-# INLINE iterateeDebugWrapper #-}