diff options
author | 2011-10-15 01:37:55 -0400 | |
---|---|---|
committer | 2011-10-15 01:37:55 -0400 | |
commit | 872057303e14dd6623772de2d8d85b511e21214c (patch) | |
tree | 1d73ce0846321b53ee750dfc355d03a55f18a96f | |
parent | ae2b1308a62981e14a03275e5d6ea65a2bc7d098 (diff) |
tweak
-rw-r--r-- | Git.hs | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -338,8 +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 r = flip urlAuthPart r $ \a -> - uriUserInfo a ++ uriRegName' a ++ uriPort a +urlAuthority = urlAuthPart combine + where + combine 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 |