mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

better name for continuation

Browse source
This commit is contained in:
Joey Hess 2013-12-01 15:52:30 -04:00
parent 0b14af30ab
commit 12bc989d2d
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Command/Fsck.hs
View file

@ -236,7 +236,7 @@ verifyLocationLogRemote key desc remote present =
(Remote.logStatus remote key) (Remote.logStatus remote key)
verifyLocationLog' :: Key -> String -> Bool -> UUID -> (LogStatus -> Annex ()) -> Annex Bool 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 uuids <- Remote.keyLocations key
case (present, u `elem` uuids) of case (present, u `elem` uuids) of
(True, False) -> do (True, False) -> do
@ -254,7 +254,7 @@ verifyLocationLog' key desc present u bad = do
where where
fix s = do fix s = do
showNote "fixing location log" showNote "fixing location log"
bad s updatestatus s
{- Ensures the direct mode mapping file is consistent. Each file {- Ensures the direct mode mapping file is consistent. Each file
- it lists for the key should exist, and the specified file should be - it lists for the key should exist, and the specified file should be