make everything build again after ByteString Key changes

Remote/External/Types.hs

@@ -99,10 +99,10 @@ newtype SafeKey = SafeKey Key
 
 mkSafeKey :: Key -> Either String SafeKey
 mkSafeKey k 
-	| any isSpace (keyName k) = Left $ concat
+	| any isSpace (decodeBS $ keyName k) = Left $ concat
 		[ "Sorry, this file cannot be stored on an external special remote because its key's name contains a space. "
 		, "To avoid this problem, you can run: git-annex migrate --backend="
-		, formatKeyVariety (keyVariety k)
+		, decodeBS (formatKeyVariety (keyVariety k))
 		, " and pass it the name of the file"
 		]
 	| otherwise = Right (SafeKey k)

Remote/Helper/Export.hs

@@ -208,5 +208,5 @@ adjustExportable r = case M.lookup "exporttree" (config r) of
 						ea <- exportActions r
 						retrieveExport ea k l dest p
 			else do
-				warning $ "exported content cannot be verified due to using the " ++ formatKeyVariety (keyVariety k) ++ " backend"
+				warning $ "exported content cannot be verified due to using the " ++ decodeBS (formatKeyVariety (keyVariety k)) ++ " backend"
 				return False