add some debugs to get timings

Note that I had one in Annex.Action.startup too, but it resulted in a weird
message printed by ssh, "channel 2: bad ext data". I don't know why, but
it only happened when transferinfo was run, so I wonder
if 983a95f021 introduced a fragility somehow.

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

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 {