summaryrefslogtreecommitdiff
path: root/Git.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-10-15 01:37:55 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-10-15 01:37:55 -0400
commit872057303e14dd6623772de2d8d85b511e21214c (patch)
tree1d73ce0846321b53ee750dfc355d03a55f18a96f /Git.hs
parentae2b1308a62981e14a03275e5d6ea65a2bc7d098 (diff)
tweak
Diffstat (limited to 'Git.hs')
-rw-r--r--Git.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/Git.hs b/Git.hs
index 836e063c2..b426d5c5f 100644
--- a/Git.hs
+++ b/Git.hs
@@ -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