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 9d5964e71a862f03c3fb36df5d61a62ac226c831 (commit)
from e3d5f5a18267df03f5fa8ef8e7dea5cdffed65f1 (commit)
Summary of changes:
src/Snap/Internal/Debug.hs | 5 ++++-
1 files changed, 4 insertions(+), 1 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 9d5964e71a862f03c3fb36df5d61a62ac226c831
Author: Gregory Collins <[email protected]>
Date: Sun Mar 20 17:16:56 2011 +0100
Kill warnings when NODEBUG is on
diff --git a/src/Snap/Internal/Debug.hs b/src/Snap/Internal/Debug.hs
index 52bc122..abc5a46 100644
--- a/src/Snap/Internal/Debug.hs
+++ b/src/Snap/Internal/Debug.hs
@@ -16,10 +16,12 @@
module Snap.Internal.Debug where
------------------------------------------------------------------------------
+import Control.Monad.Trans
+
+#ifndef NODEBUG
import Control.Concurrent
import Control.DeepSeq
import Control.Exception
-import Control.Monad.Trans
import Data.Char
import Data.List
import Data.Maybe
@@ -28,6 +30,7 @@ import System.Environment
import System.IO
import System.IO.Unsafe
import Text.Printf
+#endif
------------------------------------------------------------------------------
debug, debugErrno :: forall m . (MonadIO m => String -> m ())
-----------------------------------------------------------------------
hooks/post-receive
--
snap-core
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
