Fixed PacketRequest bug: resource exhausted (Message too long)

1 files changed, 4 insertions, 2 deletions

diff --git a/src/Data/PacketQueue.hs b/src/Data/PacketQueue.hs
index aa51426b..15a3b436 100644
--- a/src/Data/PacketQueue.hs
+++ b/src/Data/PacketQueue.hs
@@ -103,8 +103,10 @@ getMissing PacketQueue { pktq, seqno, qsize, buffend } = do
     seqno0 <- readTVar seqno
     buffend0 <- readTVar buffend
     -- note relying on fact that [ b .. a ] is null when a < b
-    let indices = take (fromIntegral qsize) $ map (`mod` qsize) [ seqno0 .. buffend0 - 1]
-    maybes <- mapM (\i -> do {x <- readArray pktq i; return (i,x)}) indices
+    let indices = take (fromIntegral qsize) $ [ seqno0 .. buffend0 - 1]
+    maybes <- forM indices $ \i -> do
+        x <- readArray pktq $ i `mod` qsize
+        return (i,x)
     let nums = map fst . filter (isNothing . snd) $ maybes
     return nums