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 remotepairs = Map.toList $ filterremotes $ config repo
filterremotes = Map.filterWithKey (\k _ -> isremote k) filterremotes = Map.filterWithKey (\k _ -> isremote k)
isremote k = startswith "remote." k && endswith ".url" 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 construct (k,v) = do
r <- gen v r <- gen v
return $ r { remoteName = Just $ remotename k } return $ r { remoteName = Just $ remotename k }

1
debian/changelog vendored
View file

@ -1,6 +1,7 @@
git-annex (0.20110317) UNRELEASED; urgency=low git-annex (0.20110317) UNRELEASED; urgency=low
* Fix dropping of files using the URL backend. * Fix dropping of files using the URL backend.
* Fix support for remotes with '.' in their names.
-- Joey Hess <joeyh@debian.org> Thu, 17 Mar 2011 11:46:53 -0400 -- Joey Hess <joeyh@debian.org> Thu, 17 Mar 2011 11:46:53 -0400