diff --git a/Debug/Trace/Helpers.hs b/Debug/Trace/Helpers.hs
--- a/Debug/Trace/Helpers.hs
+++ b/Debug/Trace/Helpers.hs
@@ -21,3 +21,7 @@
 
 traceWith :: (a -> String) -> a -> a
 traceWith f v = trace (f v) v
+
+{-# NOINLINE traceM #-}
+traceM :: (Monad m) => String -> m ()
+traceM s = trace s $ return ()
diff --git a/DebugTraceHelpers.cabal b/DebugTraceHelpers.cabal
--- a/DebugTraceHelpers.cabal
+++ b/DebugTraceHelpers.cabal
@@ -1,5 +1,5 @@
 Name: DebugTraceHelpers
-Version: 0.11
+Version: 0.12
 License: GPL
 License-file: gpl.txt
 Description: Convenience functions and instances for tracing, based on Debug.Trace.