diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-09-29 11:33:42 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-09-29 11:33:42 -0400 |
| commit | 6cc0c44b26197439d35f3f53c8621f7f113841ab (patch) | |
| tree | cb1b17e2136cbaa3a842b6db9ced3a13304019ef /Annex | |
| parent | 7543b761d18cf225f32d1c594cc0c35ee34b9264 (diff) | |
followup
Diffstat (limited to 'Annex')
| -rw-r--r-- | Annex/DirHashes.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Annex/DirHashes.hs b/Annex/DirHashes.hs index 91c3e7817..004536ca7 100644 --- a/Annex/DirHashes.hs +++ b/Annex/DirHashes.hs @@ -14,6 +14,7 @@ module Annex.DirHashes ( dirHashes, hashDirMixed, hashDirLower, + display_32bits_as_dir ) where import Data.Bits @@ -74,7 +75,7 @@ hashDirLower n k = hashDirs n 3 $ take 6 $ md5s $ md5FilePath $ key2file $ nonCh -} display_32bits_as_dir :: Word32 -> String display_32bits_as_dir w = trim $ swap_pairs cs - where + where -- Need 32 characters to use. To avoid inaverdently making -- a real word, use letters that appear less frequently. chars = ['0'..'9'] ++ "zqjxkmvwgpfZQJXKMVWGPF" |