factor out IncrementalHasher from IncrementalVerifier

This commit is contained in:
Joey Hess 2021-11-09 12:29:09 -04:00
parent 9d3ce224e3
commit 8034f2e9bb
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
9 changed files with 68 additions and 48 deletions

View file

@ -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