diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-04-03 15:33:28 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-04-03 15:35:18 -0400 |
| commit | 141937ed091643e2c47207f3818f46c7cf341189 (patch) | |
| tree | 102dfcdef294cdc0ca6404232962749d213fac41 /Command/TransferKeys.hs | |
| parent | fff817f70ce3c86d873775c0d113b074cc486ff8 (diff) | |
rename bothHandles -> ioHandles
Diffstat (limited to 'Command/TransferKeys.hs')
| -rw-r--r-- | Command/TransferKeys.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/TransferKeys.hs b/Command/TransferKeys.hs index 990582196..b787fe9be 100644 --- a/Command/TransferKeys.hs +++ b/Command/TransferKeys.hs @@ -16,7 +16,7 @@ import Logs.Location import Annex.Transfer import qualified Remote import Types.Key -import Utility.SimpleProtocol (ioHandles) +import Utility.SimpleProtocol (dupIoHandles) import Git.Types (RemoteName) data TransferRequest = TransferRequest Direction Remote Key AssociatedFile @@ -30,7 +30,7 @@ seek = withNothing start start :: CommandStart start = do - (readh, writeh) <- liftIO ioHandles + (readh, writeh) <- liftIO dupIoHandles runRequests readh writeh runner stop where |