diff options
author | Joey Hess <joey@kitenet.net> | 2011-08-06 12:50:20 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-08-06 12:50:20 -0400 |
commit | 3ffc0bb4f57e20350f59c0e331656e54877916aa (patch) | |
tree | d3515f7e4b6629609a82f51fa535f0330c24a4c8 | |
parent | 46ddb4e66aa1ba2a569eb8734c8ca0f40f3930d4 (diff) |
foo
-rw-r--r-- | Backend.hs | 2 | ||||
-rw-r--r-- | Backend/SHA.hs | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/Backend.hs b/Backend.hs index 3429e8f42..6942692e8 100644 --- a/Backend.hs +++ b/Backend.hs @@ -65,7 +65,7 @@ orderedList = do genKey :: FilePath -> Maybe (Backend Annex) -> Annex (Maybe (Key, Backend Annex)) genKey file trybackend = do bs <- orderedList - let bs' = maybe bs (:bs) trybackend + let bs' = maybe bs (: bs) trybackend genKey' bs' file genKey' :: [Backend Annex] -> FilePath -> Annex (Maybe (Key, Backend Annex)) genKey' [] _ = return Nothing 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 |