groundwork for parameterizing hash depth

1 files changed, 2 insertions, 1 deletions

diff --git a/Remote/Directory.hs b/Remote/Directory.hs
index 2b887a82f..2eeb79317 100644
--- a/Remote/Directory.hs
+++ b/Remote/Directory.hs
@@ -15,6 +15,7 @@ module Remote.Directory (
 
 import qualified Data.ByteString.Lazy as L
 import qualified Data.Map as M
+import Data.Default
 
 import Common.Annex
 import Types.Remote
@@ -107,7 +108,7 @@ getLocation d k = do
 
 {- Directory where the file(s) for a key are stored. -}
 storeDir :: FilePath -> Key -> FilePath
-storeDir d k = addTrailingPathSeparator $ d </> hashDirLower k </> keyFile k
+storeDir d k = addTrailingPathSeparator $ d </> hashDirLower def k </> keyFile k
 
 {- Where we store temporary data for a key, in the directory, as it's being
  - written. -}