summaryrefslogtreecommitdiff
path: root/Backend/SHA.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-08-06 12:50:20 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-08-06 12:50:20 -0400
commit3ffc0bb4f57e20350f59c0e331656e54877916aa (patch)
treed3515f7e4b6629609a82f51fa535f0330c24a4c8 /Backend/SHA.hs
parent46ddb4e66aa1ba2a569eb8734c8ca0f40f3930d4 (diff)
foo
Diffstat (limited to 'Backend/SHA.hs')
-rw-r--r--Backend/SHA.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Backend/SHA.hs b/Backend/SHA.hs
index c1d713648..bae19be00 100644
--- a/Backend/SHA.hs
+++ b/Backend/SHA.hs
@@ -32,7 +32,7 @@ sizes :: [Int]
sizes = [1, 256, 512, 224, 384]
backends :: [Backend Annex]
--- order is slightly significant; want sha1 first ,and more general
+-- order is slightly significant; want sha1 first, and more general
-- sizes earlier
backends = catMaybes $ map genBackend sizes ++ map genBackendE sizes
@@ -107,7 +107,7 @@ keyValueE size file = keyValue size file >>= maybe (return Nothing) addE
then "" -- probably not really an extension
else naiveextension
--- A key's checksum is checked during fsck.
+{- A key's checksum is checked during fsck. -}
checkKeyChecksum :: SHASize -> Key -> Annex Bool
checkKeyChecksum size key = do
g <- Annex.gitRepo