diff options
-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. -} |