From 583ba809923948eb3ce9b3f91892c7492e5db14f Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 10 Dec 2011 20:53:42 -0400 Subject: better syntax --- Locations.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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. -} -- cgit v1.2.3