diff options
Diffstat (limited to 'Backend')
| -rw-r--r-- | Backend/SHA.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/Backend/SHA.hs b/Backend/SHA.hs index 8f7dbe774..497e7d7e2 100644 --- a/Backend/SHA.hs +++ b/Backend/SHA.hs @@ -1,4 +1,4 @@ -{- git-annex SHA backend +{- git-annex SHA backends - - Copyright 2011,2012 Joey Hess <joey@kitenet.net> - @@ -19,13 +19,14 @@ import qualified Data.ByteString.Lazy as L type SHASize = Int --- order is slightly significant; want SHA256 first, and more general --- sizes earlier +{- Order is slightly significant; want SHA256 first, and more general + - sizes earlier. -} sizes :: [Int] sizes = [256, 1, 512, 224, 384] +{- The SHA256E backend is the default. -} backends :: [Backend] -backends = catMaybes $ map genBackend sizes ++ map genBackendE sizes +backends = catMaybes $ map genBackendE sizes ++ map genBackend sizes genBackend :: SHASize -> Maybe Backend genBackend size = Just $ Backend |