Permalink
Browse files

Force the IntSet when communicating it.

  • Loading branch information...
1 parent 1920b87 commit 929fcbe8bfb2c4425d3ab0755c84472be580f169 @jlouis committed Mar 13, 2010
Showing with 3 additions and 1 deletion.
  1. +3 −1 src/Process/PieceMgr.hs
View
4 src/Process/PieceMgr.hs
@@ -92,7 +92,9 @@ data PieceMgrMsg = GrabBlocks Int IS.IntSet (Channel Blocks)
-- ^ Get the pieces which are already done
instance NFData PieceMgrMsg where
- rnf a = a `seq` ()
+ rnf a = case a of
+ (GrabBlocks _ is _) -> rnf is
+ a -> a `seq` ()
data ChokeInfoMsg = PieceDone PieceNum
| BlockComplete PieceNum Block

0 comments on commit 929fcbe

Please sign in to comment.