Permalink
Browse files

Add an SCC for queuePieces.

  • Loading branch information...
1 parent c6951ce commit 3e4439cc99eb4b8477cb726bad02c528f4a49efe @jlouis committed May 31, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Process/Peer.hs
View
@@ -706,7 +706,7 @@ endgameLoMark = 1
-- | Queue up pieces for retrieval at the Peer
queuePieces :: [(PieceNum, Block)] -> Process CF ST ()
-queuePieces toQueue = do
+queuePieces toQueue = {-# SCC "queuePieces" #-} do
s <- get
let bq = blockQueue s
q <- forM toQueue

0 comments on commit 3e4439c

Please sign in to comment.