diff options
author | Joey Hess <joey@kitenet.net> | 2012-07-02 08:35:15 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-07-02 08:35:15 -0400 |
commit | 9517fbb9488aac6750b9599db358da8d72a2343e (patch) | |
tree | 0584473638da9c38f7bc2164c17cad4aab048cdc /Logs | |
parent | bab6dc48d3ee09036fa555fa5ddc1475c9ce87d4 (diff) |
cleanup
Diffstat (limited to 'Logs')
-rw-r--r-- | Logs/Transfer.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Logs/Transfer.hs b/Logs/Transfer.hs index 658e18b5d..dbd45f199 100644 --- a/Logs/Transfer.hs +++ b/Logs/Transfer.hs @@ -10,9 +10,9 @@ module Logs.Transfer where import Common.Annex import Annex.Perms import Annex.Exception -import qualified Annex import qualified Git import Types.Remote +import qualified Fields import Control.Concurrent import System.Posix.Types @@ -57,9 +57,9 @@ download u key file a = transfer (Transfer Download u key) file a fieldTransfer :: Direction -> Key -> Annex a -> Annex a fieldTransfer direction key a = do - afile <- Annex.getField "associatedfile" + afile <- Fields.getField Fields.associatedFile maybe a (\u -> transfer (Transfer direction (toUUID u) key) afile a) - =<< Annex.getField "remoteuuid" + =<< Fields.getField Fields.remoteUUID {- Runs a transfer action. Creates and locks the transfer information file - while the action is running. Will throw an error if the transfer is |