DPut Trace Variations

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

1 files changed, 3 insertions, 3 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index 457171a9..44b2f26f 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -681,7 +681,7 @@ createNetCryptoOutQueue sessions newsession theirSessionKey pktq ncMyPacketNonce
 addSessionToMap :: NetCryptoSessions -> SockAddr -> NetCryptoSession -> STM ()
 addSessionToMap sessions addrRaw netCryptoSession = do
     let addr = either id id $ either4or6 addrRaw
-    let dmsg msg = trace msg (return ())
+    let dmsg msg = tput XNetCrypto msg
     dmsg $ "addSessionToMapIfNotThere sockaddr = " ++ show addr ++ ", sessionid = " ++ show (ncSessionId netCryptoSession)
     let remotePublicKey = ncTheirPublicKey netCryptoSession
         allsessions     = netCryptoSessions sessions
@@ -695,7 +695,7 @@ addSessionToMap sessions addrRaw netCryptoSession = do
 addSessionToMapIfNotThere :: NetCryptoSessions -> SockAddr -> NetCryptoSession -> STM ()
 addSessionToMapIfNotThere sessions addrRaw netCryptoSession = do
     let addr = either id id $ either4or6 addrRaw
-    let dmsg msg = trace msg (return ())
+    let dmsg msg = tput XNetCrypto msg
     dmsg $ "addSessionToMapIfNotThere sockaddr = " ++ show addr ++ ", sessionid = " ++ show (ncSessionId netCryptoSession)
     let remotePublicKey = ncTheirPublicKey netCryptoSession
         allsessions     = netCryptoSessions sessions
@@ -857,7 +857,7 @@ destroySession session = do
 updateCryptoSession :: NetCryptoSessions -> SockAddr -> SecretKey -> POSIXTime -> HandshakeParams
                     -> NetCryptoSession -> Handshake Encrypted -> STM (Maybe (Handshake Encrypted), IO ())
 updateCryptoSession sessions addr newsession timestamp hp session handshake = do
-    let dmsg msg = trace msg (return ())
+    let dmsg msg = tput XNetCrypto msg
     ncState0 <- readTVar (ncState session)
     ncTheirBaseNonce0 <- readTVar (ncTheirBaseNonce session)
     if (ncState0 >= {-Accepted-}InProgress AwaitingSessionPacket)