diff options
-rw-r--r-- | Command/SendKey.hs | 4 | ||||
-rw-r--r-- | Remote/Git.hs | 1 |
2 files changed, 4 insertions, 1 deletions
diff --git a/Command/SendKey.hs b/Command/SendKey.hs index da7f99889..3b1cafb42 100644 --- a/Command/SendKey.hs +++ b/Command/SendKey.hs @@ -16,6 +16,8 @@ import Annex.Transfer import qualified CmdLine.GitAnnexShell.Fields as Fields import Utility.Metered +import System.Log.Logger + cmd :: Command cmd = noCommit $ command "sendkey" SectionPlumbing @@ -44,10 +46,12 @@ start key = do fieldTransfer :: Direction -> Key -> (MeterUpdate -> Annex Bool) -> CommandStart fieldTransfer direction key a = do + liftIO $ debugM "fieldTransfer" "transfer start" afile <- Fields.getField Fields.associatedFile ok <- maybe (a $ const noop) (\u -> runner (Transfer direction (toUUID u) key) afile noRetry noObserver a) =<< Fields.getField Fields.remoteUUID + liftIO $ debugM "fieldTransfer" "transfer done" liftIO $ exitBool ok where {- Allow the key to be sent to the remote even if there seems to be diff --git a/Remote/Git.hs b/Remote/Git.hs index ad4449b46..0fecf1ed1 100644 --- a/Remote/Git.hs +++ b/Remote/Git.hs @@ -58,7 +58,6 @@ import Control.Concurrent import Control.Concurrent.MSampleVar import qualified Data.Map as M import Network.URI -import System.Log.Logger remote :: RemoteType remote = RemoteType { |