diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-12-10 20:53:42 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-12-10 20:53:42 -0400 |
| commit | 583ba809923948eb3ce9b3f91892c7492e5db14f (patch) | |
| tree | 0f33626b388d778f1ddacc39ea1e01e33afa6eaa | |
| parent | f44f715f51aad6cf164501b0d53b7163f3a5e758 (diff) | |
better syntax
| -rw-r--r-- | Locations.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Locations.hs b/Locations.hs index 080766841..f7784a56d 100644 --- a/Locations.hs +++ b/Locations.hs @@ -87,7 +87,7 @@ gitAnnexLocation key r - present. -} return $ inrepo ".git" </> annexLocation key hashDirMixed where - inrepo = (</>) (Git.workTree r) + inrepo d = Git.workTree r </> d check locs = fromMaybe (head locs) <$> firstM doesFileExist locs {- The annex directory of a repository. -} |