From 872057303e14dd6623772de2d8d85b511e21214c Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sat, 15 Oct 2011 01:37:55 -0400
Subject: tweak

---
 Git.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'Git.hs')

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
-- 
cgit v1.2.3