factor out IncrementalHasher from IncrementalVerifier
This commit is contained in:
parent
9d3ce224e3
commit
8034f2e9bb
9 changed files with 68 additions and 48 deletions
|
@ -83,5 +83,5 @@ httpBodyRetriever dest meterupdate iv resp
|
|||
let sofar' = addBytesProcessed sofar $ S.length b
|
||||
S.hPut h b
|
||||
meterupdate sofar'
|
||||
maybe noop (flip updateIncremental b) iv
|
||||
maybe noop (flip updateIncrementalVerifier b) iv
|
||||
go sofar' h
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue