Add insertLazy function

1 files changed, 5 insertions, 0 deletions

diff --git a/src/Network/BitTorrent/Exchange/Block.hs b/src/Network/BitTorrent/Exchange/Block.hs
index d713bcf1..c910a716 100644
--- a/src/Network/BitTorrent/Exchange/Block.hs
+++ b/src/Network/BitTorrent/Exchange/Block.hs
@@ -43,6 +43,7 @@ module Network.BitTorrent.Exchange.Block
          -- ** Construction
        , Network.BitTorrent.Exchange.Block.empty
        , Network.BitTorrent.Exchange.Block.insert
+       , Network.BitTorrent.Exchange.Block.insertLazy
        , Network.BitTorrent.Exchange.Block.merge
 
          -- ** Rendering
@@ -319,6 +320,10 @@ insert dstPos bs bucket = go 0 bucket
       | intersects curPos sz = bkt
       |       otherwise      = fill sz br (go (curPos + sz) xs)
 
+-- TODO zero-copy
+insertLazy :: Pos -> BL.ByteString -> Bucket -> Bucket
+insertLazy pos bl = Network.BitTorrent.Exchange.Block.insert pos (BL.toStrict bl)
+
 -- | /O(n)/.
 merge :: Bucket -> Bucket -> Bucket
 merge = undefined