diff options
| -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 |