Permalink
Browse files

Add another SCC.

  • Loading branch information...
1 parent 0cdd30c commit 7d4fa865ad2b6a0eaf7b12a1747867989a5aff4e @jlouis committed May 29, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Process/PieceMgr.hs
View
2 src/Process/PieceMgr.hs
@@ -308,7 +308,7 @@ putbackBlock (pn, blk) = do
-- | Assert that a Piece is Complete. Can be omitted when we know it works
-- and we want a faster client.
assertPieceComplete :: PieceNum -> PieceMgrProcess ()
-assertPieceComplete pn = do
+assertPieceComplete pn = {-# SCC "assertPieceComplete" #-} do
ps <- gets pieces
ipp <- case M.lookup pn ps of
Nothing -> fail "assertPieceComplete: Could not lookup piece number"

0 comments on commit 7d4fa86

Please sign in to comment.