refactor

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