From 4a1ea86fa8feae4e9010d10a92df41997b76fff5 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 20 Feb 2014 16:06:51 -0400 Subject: bring back the (checksum) when fscking This is useful because it shows users which files it checksums, vs ones that are not present, or don't use a hash backend, or --fast --- Backend/Hash.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'Backend') diff --git a/Backend/Hash.hs b/Backend/Hash.hs index d46ce973e..41368a5bb 100644 --- a/Backend/Hash.hs +++ b/Backend/Hash.hs @@ -101,6 +101,7 @@ checkKeyChecksum hash key file = do case (mstat, fast) of (Just stat, False) -> do let filesize = fromIntegral $ fileSize stat + showSideAction "checksum" check <$> hashFile hash file filesize _ -> return True where -- cgit v1.2.3