From 3ffc0bb4f57e20350f59c0e331656e54877916aa Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 6 Aug 2011 12:50:20 -0400 Subject: foo --- Backend/SHA.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Backend') 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 -- cgit v1.2.3