diff options
Diffstat (limited to 'Git.hs')
-rw-r--r-- | Git.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -338,9 +338,9 @@ urlHostUser r = urlAuthPart uriUserInfo r ++ urlAuthPart uriRegName' r {- The full authority portion an URL repo. (ie, "user@host:port") -} urlAuthority :: Repo -> String -urlAuthority = urlAuthPart combine +urlAuthority = urlAuthPart assemble where - combine a = uriUserInfo a ++ uriRegName' a ++ uriPort a + assemble a = uriUserInfo a ++ uriRegName' a ++ uriPort a {- Applies a function to extract part of the uriAuthority of an URL repo. -} urlAuthPart :: (URIAuth -> a) -> Repo -> a |