diff --git a/TraceUtils.cabal b/TraceUtils.cabal
--- a/TraceUtils.cabal
+++ b/TraceUtils.cabal
@@ -3,7 +3,7 @@
 -- http://www.haskell.org/cabal/release/cabal-latest/doc/users-guide/authors.html#pkg-descr.
 -- The name of the package.
 Name:                TraceUtils
-Version:             0.1.0.1
+Version:             0.1.0.2
 Synopsis:            Functions that should have been in Debug.Trace
 Description:         Functions that should have been in Debug.Trace
 Homepage:            https://github.com/Peaker/TraceUtils
diff --git a/src/Debug/TraceUtils.hs b/src/Debug/TraceUtils.hs
--- a/src/Debug/TraceUtils.hs
+++ b/src/Debug/TraceUtils.hs
@@ -8,12 +8,21 @@
 -- dependency.
 
 module Debug.TraceUtils(
-  traceId
- ,traceIdVia
- ,traceAround
+    traceId
+  , traceIdVia
+  , traceAround
+  , tracePutStrLn
+  , tracePrint
+  , trace
 ) where
 
 import Debug.Trace(trace)
+
+tracePutStrLn :: Monad m => String -> m ()
+tracePutStrLn x = trace x $ return ()
+
+tracePrint :: (Show a, Monad m) => a -> m ()
+tracePrint = tracePutStrLn . show
 
 -- | Generate an identity function that has the side-effect of tracing
 -- the value that passes through it by first processing it and then