DPut Trace Variations

        tput - like dput, but works in any Applicative
        dtrace - like trace, but takes DebugTag

1 files changed, 8 insertions, 0 deletions

diff --git a/src/DPut.hs b/src/DPut.hs
index 52714086..1b87eb93 100644
--- a/src/DPut.hs
+++ b/src/DPut.hs
@@ -27,6 +27,14 @@ dput tag msg = liftIO $ debugM (appName <.> show tag) msg
 dputB :: MonadIO m => DebugTag -> B.ByteString -> m ()
 dputB tag msg = liftIO $ debugM (appName <.> show tag) (T.unpack . T.decodeUtf8 $ msg)
 
+-- | Trace version of 'dput' works in arbitrary monad, using unsafePerformIO.
+tput :: Applicative m => DebugTag -> String -> m ()
+tput tag msg = (unsafePerformIO $ dput tag msg) `seq` pure ()
+
+-- | like 'trace' but parameterized with 'DebugTag'
+dtrace :: DebugTag -> String -> a -> a
+dtrace tag msg result = (unsafePerformIO $ dput tag msg) `seq` result
+
 setTagLevel :: Priority -> DebugTag -> IO ()
 setTagLevel level tag = updateGlobalLogger (appName <.> show tag) (setLevel level)