1 files changed, 2 insertions, 2 deletions

diff --git a/src/Data/PacketQueue.hs b/src/Data/PacketQueue.hs
index 4f0f04e3..144c8de0 100644
--- a/src/Data/PacketQueue.hs
+++ b/src/Data/PacketQueue.hs
@@ -37,7 +37,7 @@ data PacketQueue a = PacketQueue
     , seqno   :: TVar Word32
     , qsize   :: Word32
     , buffend :: TVar Word32 -- on incoming, highest packet number handled + 1
-    , qOverWriteMode :: Bool
+    , qOverWriteMode :: Bool -- TODO: Remove me, use Data.CyclicBuffer instead.
     }
 
 packetQueueViewList :: PacketQueue a -> STM [(Word32,a)]
@@ -102,7 +102,7 @@ dequeue PacketQueue { pktq, seqno, qsize } = do
     modifyTVar' seqno   succ
     return x
 
--- | Like dequeue, but marks as handled rather than removing
+-- | Like dequeue, but marks as viewed rather than removing
 markButNotDequeue :: PacketQueue (Bool,a) -> STM a
 markButNotDequeue PacketQueue { pktq, seqno, qsize } = do
     i0 <- readTVar seqno