diff options
Diffstat (limited to 'Locations.hs')
| -rw-r--r-- | Locations.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/Locations.hs b/Locations.hs index 1179886ad..3843495f9 100644 --- a/Locations.hs +++ b/Locations.hs @@ -89,11 +89,7 @@ gitAnnexLocation key r annexLocation key hashDirMixed where go dir locs = fromMaybe (dir </> head locs) <$> check dir locs - check _ [] = return Nothing - check dir (l:ls) = do - let f = dir </> l - e <- doesFileExist f - if e then return (Just f) else check dir ls + check dir = firstM $ \f -> doesFileExist $ dir </> f {- The annex directory of a repository. -} gitAnnexDir :: Git.Repo -> FilePath |