From 5c2c19dfa55f0a319d78411e21fdd0cb5dcc4547 Mon Sep 17 00:00:00 2001 From: "jim@bo" Date: Sun, 24 Jun 2018 07:11:13 -0400 Subject: debug traces of packet request send/recieve --- src/Data/PacketQueue.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'src/Data/PacketQueue.hs') 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 -- cgit v1.2.3