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

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 }