diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-12-01 15:52:30 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-12-01 15:52:30 -0400 |
| commit | 41cba140ead10769db05fedb0a5cdd1f4a8b6257 (patch) | |
| tree | fa3a2d43bf98e28de255a575a5cfb33e3a237e22 /Command/Fsck.hs | |
| parent | e2ce9cd95c83ee5ebec7edbe8c6c42fcb512f4fa (diff) | |
better name for continuation
Diffstat (limited to 'Command/Fsck.hs')
| -rw-r--r-- | Command/Fsck.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Fsck.hs b/Command/Fsck.hs index a8e52af98..d3a8b3083 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -236,7 +236,7 @@ verifyLocationLogRemote key desc remote present = (Remote.logStatus remote key) verifyLocationLog' :: Key -> String -> Bool -> UUID -> (LogStatus -> Annex ()) -> Annex Bool -verifyLocationLog' key desc present u bad = do +verifyLocationLog' key desc present u updatestatus = do uuids <- Remote.keyLocations key case (present, u `elem` uuids) of (True, False) -> do @@ -254,7 +254,7 @@ verifyLocationLog' key desc present u bad = do where fix s = do showNote "fixing location log" - bad s + updatestatus s {- Ensures the direct mode mapping file is consistent. Each file - it lists for the key should exist, and the specified file should be |