factor out IncrementalHasher from IncrementalVerifier
This commit is contained in:
parent
9d3ce224e3
commit
8034f2e9bb
9 changed files with 68 additions and 48 deletions
|
@ -656,8 +656,8 @@ downloadUrl listfailedurls k p iv urls file uo =
|
|||
-- to be used for the other urls.
|
||||
case iv of
|
||||
Just iv' ->
|
||||
liftIO $ positionIncremental iv' >>= \case
|
||||
Just n | n > 0 -> unableIncremental iv'
|
||||
liftIO $ positionIncrementalVerifier iv' >>= \case
|
||||
Just n | n > 0 -> unableIncrementalVerifier iv'
|
||||
_ -> noop
|
||||
Nothing -> noop
|
||||
go us ((u, err) : errs)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue