From 9a272815ddd33272008a4052ea74e7bbc4c842f8 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 10 Jun 2011 11:43:28 -0400 Subject: Bugfix: Fix fsck to not think all SHAnE keys are bad. --- Backend/SHA.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Backend') diff --git a/Backend/SHA.hs b/Backend/SHA.hs index 94ebe093e..8ed00b707 100644 --- a/Backend/SHA.hs +++ b/Backend/SHA.hs @@ -119,7 +119,7 @@ checkKeyChecksum size key = do then return True else do s <- shaN size file - if s == keyName key + if s == dropExtension (keyName key) then return True else do dest <- moveBad key -- cgit v1.2.3