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)
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue