From 12bc989d2d43ecafdf065686fd69f81a06a7caad Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 1 Dec 2013 15:52:30 -0400 Subject: [PATCH] better name for continuation --- Command/Fsck.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Command/Fsck.hs b/Command/Fsck.hs index a8e52af986..d3a8b30837 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