rename helper

More consistent name with TransferrerPool
This commit is contained in:
Joey Hess 2020-12-09 13:21:20 -04:00
parent 3fa2bc2eed
commit 677003a6df
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
6 changed files with 16 additions and 16 deletions

View file

@ -5,7 +5,7 @@
- Licensed under the GNU AGPL version 3 or higher.
-}
module Command.Transfer where
module Command.Transferrer where
import Command
import qualified Annex
@ -22,7 +22,7 @@ import Annex.TransferrerPool
import Text.Read (readMaybe)
cmd :: Command
cmd = command "transfer" SectionPlumbing "transfers content"
cmd = command "transferrer" SectionPlumbing "transfers content"
paramNothing (withParams seek)
seek :: CmdParams -> CommandSeek
@ -104,8 +104,8 @@ runRequests readh writeh a = go Nothing Nothing
Just remote -> do
sendresult =<< a tr remote
go (Just remoteoruuid) mremote
Nothing -> transferProtocolError l
Nothing -> transferProtocolError l
Nothing -> transferrerProtocolError l
Nothing -> transferrerProtocolError l
sendresult b = liftIO $ do
hPutStrLn writeh $ show $ TransferResult b