drop: use commandStages, not transferStages

I cannot find any rationalle for why this was changed before.
drop certianly does not do any transfers, so commandStages will perform
better.
This commit is contained in:
Joey Hess 2020-05-26 11:47:54 -04:00
parent 0bcecb67f5
commit 0d82a88742
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -52,7 +52,7 @@ parseDropFromOption = parseRemoteOption <$> strOption
) )
seek :: DropOptions -> CommandSeek seek :: DropOptions -> CommandSeek
seek o = startConcurrency transferStages $ seek o = startConcurrency commandStages $
case batchOption o of case batchOption o of
Batch fmt -> batchFilesMatching fmt (go . toRawFilePath) Batch fmt -> batchFilesMatching fmt (go . toRawFilePath)
NoBatch -> withKeyOptions (keyOptions o) (autoMode o) NoBatch -> withKeyOptions (keyOptions o) (autoMode o)