diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-05-15 15:27:49 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-05-15 15:27:49 -0400 |
| commit | 6aab88fa251a14fbf31c7a8d80296c78db0ed048 (patch) | |
| tree | 34465a5c706ab825ecd34b9261ecc6f35e4dd555 /Content.hs | |
| parent | 1e5beda86a1d0185466547bd1acb61a75ac66992 (diff) | |
more monadic operator use
Diffstat (limited to 'Content.hs')
| -rw-r--r-- | Content.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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 |