cleanup

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