diff options
| author |  Joey Hess <joey@kitenet.net> | 2010-10-09 22:14:13 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2010-10-09 22:14:13 -0400 |
| commit | dcfb24e5b5764c8a7bde0a1410022a903ba3c99b (patch) | |
| tree | b43900ebe7cd37def58230b2e539f65e1d37599b /GitRepo.hs | |
| parent | c920505a52ab3c42b7892b7f7a1c5244c39e916f (diff) | |
add logFile
Diffstat (limited to 'GitRepo.hs')
| -rw-r--r-- | GitRepo.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/GitRepo.hs b/GitRepo.hs index f1372bf3a..01e6746ae 100644 --- a/GitRepo.hs +++ b/GitRepo.hs @@ -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 |