diff options
| author | Sam T <pxqr.sta@gmail.com> | 2013-05-03 08:45:51 +0400 |
|---|---|---|
| committer | Sam T <pxqr.sta@gmail.com> | 2013-05-03 08:45:51 +0400 |
| commit | f53531b65171e3b64d733aa0ab8c7fed71325464 (patch) | |
| tree | 64d4646bdf565cc6e16a53a82f96df4b06a906df /bench/serialization.hs | |
| parent | d7df7e201bd7e0893910d77c1ea172ea0c59cd3f (diff) | |
+ Add bitfield module.
Diffstat (limited to 'bench/serialization.hs')
| -rw-r--r-- | bench/serialization.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/bench/serialization.hs b/bench/serialization.hs index 8ed90958..c6d14328 100644 --- a/bench/serialization.hs +++ b/bench/serialization.hs | |||
| @@ -15,6 +15,9 @@ instance NFData BlockIx where | |||
| 15 | instance NFData Block where | 15 | instance NFData Block where |
| 16 | rnf (Block a b c) = a `deepseq` b `deepseq` rnf c | 16 | rnf (Block a b c) = a `deepseq` b `deepseq` rnf c |
| 17 | 17 | ||
| 18 | instance NFData Bitfield where | ||
| 19 | rnf = rnf . bfBits | ||
| 20 | |||
| 18 | instance NFData Message where | 21 | instance NFData Message where |
| 19 | rnf (Have i) = rnf i | 22 | rnf (Have i) = rnf i |
| 20 | rnf (Bitfield b) = rnf b | 23 | rnf (Bitfield b) = rnf b |