From 6aab88fa251a14fbf31c7a8d80296c78db0ed048 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 15 May 2011 15:27:49 -0400 Subject: more monadic operator use --- Content.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'Content.hs') diff --git a/Content.hs b/Content.hs index 9040383be..0758fcdb1 100644 --- a/Content.hs +++ b/Content.hs @@ -72,8 +72,7 @@ calcGitLink file key = do - updated instead. -} logStatus :: Key -> LogStatus -> Annex () logStatus key status = do - g <- Annex.gitRepo - u <- getUUID g + u <- getUUID =<< Annex.gitRepo logStatusFor u key status {- Updates the LocationLog when a key's presence changes in a repository -- cgit v1.2.3