+ Scetch basic broadcasting.

1 files changed, 5 insertions, 0 deletions

diff --git a/src/Data/Bitfield.hs b/src/Data/Bitfield.hs
index 11897786..46e0a71f 100644
--- a/src/Data/Bitfield.hs
+++ b/src/Data/Bitfield.hs
@@ -52,6 +52,7 @@ module Data.Bitfield
 
          -- * Serialization
        , fromBitmap, toBitmap
+       , toList
 
          -- * Selection
        , Selector
@@ -259,6 +260,10 @@ unions = foldl' union (haveNone 0)
     Serialization
 -----------------------------------------------------------------------}
 
+-- | List all have indexes.
+toList :: Bitfield -> [PieceIx]
+toList Bitfield {..} = S.toList bfSet
+
 -- | Unpack 'Bitfield' from tightly packed bit array. Note resulting
 -- size might be more than real bitfield size, use 'adjustSize'.
 fromBitmap :: ByteString -> Bitfield