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