mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

Fix support for remotes with '.' in their names.

Browse source
This commit is contained in:
Joey Hess 2011-03-18 16:29:42 -04:00
parent 0cc05e0c19
commit 0663f14cf7
2 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
GitRepo.hs
View file

@ -404,7 +404,7 @@ configRemotes repo = mapM construct remotepairs
remotepairs = Map.toList $ filterremotes $ config repo
filterremotes = Map.filterWithKey (\k _ -> isremote k)
isremote k = startswith "remote." k && endswith ".url" k
remotename k = split "." k !! 1
remotename k = join "." $ reverse $ drop 1 $ reverse $ drop 1 $ split "." k
construct (k,v) = do
r <- gen v
return $ r { remoteName = Just $ remotename k }