diff options
author | Joey Hess <joey@kitenet.net> | 2011-03-18 16:29:42 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-03-18 16:29:42 -0400 |
commit | 0663f14cf7cb49189352a9c35ce649f3ad10de8b (patch) | |
tree | 1a5ae13eef9ae05f368caf67a085ffd665564f37 /GitRepo.hs | |
parent | 0cc05e0c19d7e0a6112167440a9ba48629407625 (diff) |
Fix support for remotes with '.' in their names.
Diffstat (limited to 'GitRepo.hs')
-rw-r--r-- | GitRepo.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/GitRepo.hs b/GitRepo.hs index a62d76596..34a59a10d 100644 --- a/GitRepo.hs +++ b/GitRepo.hs @@ -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 } |