From 41cba140ead10769db05fedb0a5cdd1f4a8b6257 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 1 Dec 2013 15:52:30 -0400 Subject: better name for continuation --- Command/Fsck.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Command/Fsck.hs') 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 -- cgit v1.2.3