summaryrefslogtreecommitdiff
path: root/Backend/Utilities.hs
blob: 4c1f70eda9b5a69fe586540a34ffee5d1f23edd6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
{- git-annex backend utilities
 -
 - Copyright 2012 Joey Hess <id@joeyh.name>
 -
 - Licensed under the GNU GPL version 3 or higher.
 -}

module Backend.Utilities where

import Data.Hash.MD5

import Common.Annex

{- Generates a keyName from an input string. Takes care of sanitizing it.
 - If it's not too long, the full string is used as the keyName.
 - Otherwise, it's truncated, and its md5 is prepended to ensure a unique
 - key. -}
genKeyName :: String -> String
genKeyName s
	-- Avoid making keys longer than the length of a SHA256 checksum.
	| bytelen > sha256len =
		truncateFilePath (sha256len - md5len - 1) s' ++ "-" ++ md5s (Str s)
	| otherwise = s'
  where
	s' = preSanitizeKeyName s
	bytelen = length (decodeW8 s')

	sha256len = 64
	md5len = 32