Add Bitfield.full function

1 files changed, 5 insertions, 0 deletions

diff --git a/src/Data/Torrent/Bitfield.hs b/src/Data/Torrent/Bitfield.hs
index 176ba2c0..d564e353 100644
--- a/src/Data/Torrent/Bitfield.hs
+++ b/src/Data/Torrent/Bitfield.hs
@@ -37,6 +37,7 @@ module Data.Torrent.Bitfield
 
          -- * Query
        , Data.Torrent.Bitfield.null
+       , Data.Torrent.Bitfield.full
        , haveCount, totalCount, completeness
 
        , member, notMember
@@ -135,6 +136,10 @@ interval pc a b = Bitfield pc (S.interval a b)
 null :: Bitfield -> Bool
 null Bitfield {..} = S.null bfSet
 
+-- | Test if bitfield have all pieces.
+full :: Bitfield -> Bool
+full Bitfield {..} = S.size bfSet == bfSize
+
 -- | Count of peer have pieces.
 haveCount :: Bitfield -> PieceCount
 haveCount = S.size . bfSet