Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Reintroduce inline pragmas for NODEBUG

  • Loading branch information...
commit f6617a4814573f06bd031f133fe3706a1a8db89b 1 parent 0a5b831
@gregorycollins gregorycollins authored
Showing with 5 additions and 0 deletions.
  1. +5 −0 src/Snap/Internal/Debug.hs
View
5 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 #-}
------------------------------------------------------------------------------
Please sign in to comment.
Something went wrong with that request. Please try again.