diff options
author | Joey Hess <joey@kitenet.net> | 2010-10-14 17:57:04 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-10-14 17:57:04 -0400 |
commit | 467c4b2751921818f86561d85b0927254e48d956 (patch) | |
tree | 38b8c21217049f293668fadefb7da82ca806dea7 /Commands.hs | |
parent | 508a3b65ed675c9322940578614f088ea2c74e7f (diff) |
better shutdown
Diffstat (limited to 'Commands.hs')
-rw-r--r-- | Commands.hs | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/Commands.hs b/Commands.hs index 6128b76aa..58d88aa3b 100644 --- a/Commands.hs +++ b/Commands.hs @@ -171,11 +171,7 @@ logStatus key status = do g <- Annex.gitRepo u <- getUUID g f <- liftIO $ logChange g key u status - liftIO $ commit g f - where - commit g f = do - Git.run g ["add", f] - Git.run g ["commit", "-m", "git-annex log update", f] + liftIO $ Git.run g ["add", f] -- committed at shutdown inBackend file yes no = do r <- liftIO $ Backend.lookupFile file @@ -204,7 +200,8 @@ requireEnoughCopies key = do findcopies n (r:rs) bad = do result <- liftIO $ try $ haskey r case (result) of - Right True -> findcopies (n-1) rs bad + Right True -> do + findcopies (n-1) rs bad Left _ -> findcopies n rs (r:bad) haskey r = do -- To check if a remote has a key, construct a new |