summaryrefslogtreecommitdiff
path: root/Logs/Transfer.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-07-02 08:35:15 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-07-02 08:35:15 -0400
commit9517fbb9488aac6750b9599db358da8d72a2343e (patch)
tree0584473638da9c38f7bc2164c17cad4aab048cdc /Logs/Transfer.hs
parentbab6dc48d3ee09036fa555fa5ddc1475c9ce87d4 (diff)
cleanup
Diffstat (limited to 'Logs/Transfer.hs')
-rw-r--r--Logs/Transfer.hs6
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