diff options
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 } |