The ToxToXMPP code should use XMan tag.

1 files changed, 5 insertions, 4 deletions

diff --git a/src/DPut.hs b/src/DPut.hs
index 84f086b3..52714086 100644
--- a/src/DPut.hs
+++ b/src/DPut.hs
@@ -1,5 +1,6 @@
 module DPut where
 
+import Control.Monad.IO.Class
 import Control.Concurrent.STM
 import qualified Data.Map.Strict as Map
 import System.IO (stderr,hPutStrLn)
@@ -20,11 +21,11 @@ appName = "toxmpp"
 (<.>) :: String -> String -> String
 a <.> b = a ++ "." ++ b
 
-dput :: DebugTag -> String -> IO ()
-dput tag msg = debugM (appName <.> show tag) msg
+dput :: MonadIO m => DebugTag -> String -> m ()
+dput tag msg = liftIO $ debugM (appName <.> show tag) msg
 
-dputB :: DebugTag -> B.ByteString -> IO ()
-dputB tag msg = debugM (appName <.> show tag) (T.unpack . T.decodeUtf8 $ msg)
+dputB :: MonadIO m => DebugTag -> B.ByteString -> m ()
+dputB tag msg = liftIO $ debugM (appName <.> show tag) (T.unpack . T.decodeUtf8 $ msg)
 
 setTagLevel :: Priority -> DebugTag -> IO ()
 setTagLevel level tag = updateGlobalLogger (appName <.> show tag) (setLevel level)