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 f6617a4814573f06bd031f133fe3706a1a8db89b (commit)
from 0a5b831d78c2d727a107e6659b20cd86d9b34364 (commit)
Summary of changes:
src/Snap/Internal/Debug.hs | 5 +++++
1 files changed, 5 insertions(+), 0 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 f6617a4814573f06bd031f133fe3706a1a8db89b
Author: Gregory Collins <[email protected]>
Date: Tue Sep 21 13:15:41 2010 -0400
Reintroduce inline pragmas for NODEBUG
diff --git a/src/Snap/Internal/Debug.hs b/src/Snap/Internal/Debug.hs
index 8ecf2fc..54845ac 100644
--- a/src/Snap/Internal/Debug.hs
+++ b/src/Snap/Internal/Debug.hs
@@ -105,14 +105,19 @@ debugErrnoOn loc = liftIO $ do
#else
debug = debugIgnore
+{-# INLINE debug #-}
+
debugErrno = debugErrnoIgnore
+{-# INLINE debugErrno #-}
#endif
------------------------------------------------------------------------------
debugIgnore :: (MonadIO m) => String -> m ()
debugIgnore _ = return ()
+{-# INLINE debugIgnore #-}
debugErrnoIgnore :: (MonadIO m) => String -> m ()
debugErrnoIgnore _ = return ()
+{-# INLINE debugErrnoIgnore #-}
------------------------------------------------------------------------------
-----------------------------------------------------------------------
hooks/post-receive
--
snap-core
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
