mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

reorganize log modules

Browse source 
no code changes
This commit is contained in:
Joey Hess 2011-10-15 16:21:08 -04:00
parent 279150ccd5
commit 1a29b5b52e
44 changed files with 92 additions and 92 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Git.hs
View file

@ -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