保管トラック<code>Network.HTTP.Conduit</code>でrequestBodySourceIO

Question

を使用して、requestBodySourceIOこの型シグネチャを有する：

Prelude Network.HTTP.Conduit Data.Conduit Control.Monad.Trans.Resource> :t requestBodySourceIO 
requestBodySourceIO 
    :: GHC.Int.Int64 
    -> Source IO Data.ByteString.Internal.ByteString -> RequestBody 

最初の引数は、バイト単位体の長さです。これまでにBytestringの実行合計を追跡しながら、ByteStringのソースを渡すのは良い方法ですか？これは、リクエストの最後に渡された長さが、それに渡されたBytestringの全長と一致するかどうかを判断するのに役立ちます。

Answer 1

バイトのソースがあります。これはsourceと呼ばれます。

mySource = source =$= processor 0 
    where processor sz = do bs <- await 
          let sz' = sz + BS.length bs 
          ... 
          processor sz' 

そしてmySourceでrequestBodySourceIOを呼び出す：あなただけの長さを追跡するコンジットセグメントを追加し、requestBodySourceIOに渡すしようとしているソースを構築する 。