diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-01-06 17:58:57 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-01-06 17:58:57 -0400 |
commit | 9504153169360a3c5a2c83b807d3d0be4d82aa28 (patch) | |
tree | 59e9edc6f5e999f13c995bb3c35f27e4f06edc6f /Backend/URL.hs | |
parent | 27195fc7ecb70e185e9a78f8bd3d758bfe262a22 (diff) |
Generate shorter keys for WORM and URL, avoiding keys that are longer than used for SHA256, so as to not break on systems like Windows that have very small maximum path length limits.
Diffstat (limited to 'Backend/URL.hs')
-rw-r--r-- | Backend/URL.hs | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/Backend/URL.hs b/Backend/URL.hs index 2c2988ac0..ac517a5f3 100644 --- a/Backend/URL.hs +++ b/Backend/URL.hs @@ -32,10 +32,8 @@ backend = Backend {- Every unique url has a corresponding key. -} fromUrl :: String -> Maybe Integer -> Annex Key -fromUrl url size = do - n <- genKeyName url - return $ stubKey - { keyName = n - , keyBackendName = "URL" - , keySize = size - } +fromUrl url size = return $ stubKey + { keyName = genKeyName url + , keyBackendName = "URL" + , keySize = size + } |