add a progress callback to storeKey, and threaded it all the way through

Transfer info files are updated when the callback is called, updating
the number of bytes transferred.

Left unused p variables at every place the callback should be used.
Which is rather a lot..

Remote/Helper/Encryptable.hs

@@ -45,7 +45,7 @@ encryptionSetup c = case (M.lookup "encryption" c, extractCipher c) of
  - to support storing and retrieving encrypted content. -}
 encryptableRemote
 	:: Maybe RemoteConfig
-	-> ((Cipher, Key) -> Key -> Annex Bool)
+	-> ((Cipher, Key) -> Key -> ProgressCallback -> Annex Bool)
 	-> ((Cipher, Key) -> Key -> FilePath -> Annex Bool)
 	-> Remote
 	-> Remote
@@ -59,9 +59,9 @@ encryptableRemote c storeKeyEncrypted retrieveKeyFileEncrypted r =
 		cost = cost r + encryptedRemoteCostAdj
 	}
 	where
-		store k f = cip k >>= maybe
-			(storeKey r k f)
-			(`storeKeyEncrypted` k)
+		store k f p = cip k >>= maybe
+			(storeKey r k f p)
+			(\enck -> storeKeyEncrypted enck k p)
 		retrieve k f d = cip k >>= maybe
 			(retrieveKeyFile r k f d)
 			(\enck -> retrieveKeyFileEncrypted enck k d)

Remote/Helper/Hooks.hs

@@ -27,7 +27,7 @@ addHooks' r Nothing Nothing = r
 addHooks' r starthook stophook = r'
 	where
 		r' = r
-			{ storeKey = \k f -> wrapper $ storeKey r k f
+			{ storeKey = \k f p -> wrapper $ storeKey r k f p
 			, retrieveKeyFile = \k f d -> wrapper $ retrieveKeyFile r k f d
 			, retrieveKeyFileCheap = \k f -> wrapper $ retrieveKeyFileCheap r k f
 			, removeKey = \k -> wrapper $ removeKey r k