add git-annex updatecluster command

Seems to work fine, making the right changes to the git-annex branch.

Git/Remote.hs

@@ -68,7 +68,10 @@ makeLegalName s = case filter legal $ replace "/" "_" s of
 	legal '-' = True
 	legal '.' = True
 	legal c = isAlphaNum c
-	
+
+isLegalName :: String -> Bool
+isLegalName s = s == makeLegalName s
+
 data RemoteLocation = RemoteUrl String | RemotePath FilePath
 	deriving (Eq, Show)
 

Git/Types.hs

@@ -84,6 +84,9 @@ instance Default ConfigValue where
 fromConfigKey :: ConfigKey -> String
 fromConfigKey (ConfigKey s) = decodeBS s
 
+fromConfigKey' :: ConfigKey -> S.ByteString
+fromConfigKey' (ConfigKey s) = s
+
 instance Show ConfigKey where
 	show = fromConfigKey