diff options
Diffstat (limited to 'Backend/SHA.hs')
-rw-r--r-- | Backend/SHA.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |