minor syntax changes

This commit is contained in:
Joey Hess 2011-10-11 14:43:45 -04:00
parent 025ded4a2d
commit b505ba83e8
19 changed files with 78 additions and 95 deletions

View file

@ -104,11 +104,11 @@ checkKeyChecksum size key = do
present <- liftIO $ doesFileExist file
if not present || fast
then return True
else do
s <- shaN size file
if s == dropExtension (keyName key)
then return True
else do
dest <- moveBad key
warning $ "Bad file content; moved to " ++ dest
return False
else check =<< shaN size file
where
check s
| s == dropExtension (keyName key) = return True
| otherwise = do
dest <- moveBad key
warning $ "Bad file content; moved to " ++ dest
return False