add git-annex updatecluster command
Seems to work fine, making the right changes to the git-annex branch.
This commit is contained in:
parent
2844230dfe
commit
bbf261487d
13 changed files with 114 additions and 28 deletions
|
@ -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)
|
||||
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue