debug traces of packet request send/recieve

1 files changed, 2 insertions, 4 deletions

diff --git a/src/Data/PacketQueue.hs b/src/Data/PacketQueue.hs
index 93f9ba14..6f997ac0 100644
--- a/src/Data/PacketQueue.hs
+++ b/src/Data/PacketQueue.hs
@@ -89,13 +89,11 @@ getMissing :: Show a => PacketQueue a -> STM [Word32]
 getMissing PacketQueue { pktq, seqno, qsize, buffend } = do
     seqno0 <- readTVar seqno
     buffend0 <- readTVar buffend
-    -- tput XNetCrypto $ "getMissing: seqno = " ++ show seqno0
-    -- tput XNetCrypto $ "getMissing: buffend0 = " ++ show buffend0
     -- note relying on fact that [ b .. a ] is null when a < b
     let indices = take (fromIntegral qsize) $ map (`mod` qsize) [ seqno0 .. buffend0 - 1]
-    -- tput XNetCrypto $ "indices: " ++ show indices
+    -- tput XNetCrypto $ "(netCRYPTO getMissing indices: " ++ show indices
     maybes <- mapM (\i -> do {x <- readArray pktq i; return (i,x)}) indices
-    -- tput XNetCrypto $ "getMissing: maybers = " ++ show maybes
+    tput XNetCrypto $ "(netCRYPTO) getMissing: (" ++ show seqno0 ++ " " ++ show buffend0 ++") => " ++ show maybes
     let nums = map fst . filter (isNothing . snd) $ maybes
     return nums