Permalink
Browse files

Reintroduce inline pragmas for NODEBUG

  • Loading branch information...
1 parent 0a5b831 commit f6617a4814573f06bd031f133fe3706a1a8db89b @gregorycollins gregorycollins committed Sep 21, 2010
Showing with 5 additions and 0 deletions.
  1. +5 −0 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 #-}
------------------------------------------------------------------------------

0 comments on commit f6617a4

Please sign in to comment.