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

better syntax

Browse source
This commit is contained in:
Joey Hess 2011-12-10 20:53:42 -04:00
parent f44f715f51
commit 583ba80992
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Locations.hs
View file

@ -87,7 +87,7 @@ gitAnnexLocation key r
- present. -} - present. -}
return $ inrepo ".git" </> annexLocation key hashDirMixed return $ inrepo ".git" </> annexLocation key hashDirMixed
where where
inrepo = (</>) (Git.workTree r) inrepo d = Git.workTree r </> d
check locs = fromMaybe (head locs) <$> firstM doesFileExist locs check locs = fromMaybe (head locs) <$> firstM doesFileExist locs
{- The annex directory of a repository. -} {- The annex directory of a repository. -}