getVerifiedPieces :: MonadIO m =>  TorrentStatus -> m (BitArray Int)
getVerifiedPieces ho =
  liftIO . withPtr ho $ \hoPtr -> do
  bf <- fromPtr [CU.exp| bitfield * { new bitfield($(torrent_status * hoPtr)->verified_pieces) } |]
  bitfieldToBitArray bf
getVerifiedPieces :: MonadIO m =>  TorrentStatus -> m (BitArray Int)
getVerifiedPieces ho =
  liftIO . withPtr ho $ \hoPtr -> do
  bf <- fromPtr [CU.exp| bitfield * { new bitfield($(torrent_status * hoPtr)->verified_pieces) } |]
  bitfieldToBitArray bf
getVerifiedPieces ho =
  liftIO . withPtr ho $ \hoPtr -> do
  bf <- fromPtr [CU.exp| bitfield * { new bitfield($(torrent_status * hoPtr)->verified_pieces) } |]
  bitfieldToBitArray bf