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

add logFile

Browse source
This commit is contained in:
Joey Hess 2010-10-09 22:14:13 -04:00
parent c920505a52
commit dcfb24e5b5
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
GitRepo.hs
View file

@ -11,7 +11,7 @@ import Data.String.Utils
- relative to a git repository directory (which must be absolute).
- This is the same form displayed and used by git. -}
gitRelative :: String -> String -> String
gitRelative file repo = drop (length absrepo) absfile
gitRelative repo file = drop (length absrepo) absfile
where
-- normalize both repo and file, so that repo
-- will be substring of file