From 6cc0c44b26197439d35f3f53c8621f7f113841ab Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 29 Sep 2016 11:33:42 -0400 Subject: followup --- Annex/DirHashes.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Annex') 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" -- cgit v1.2.3