diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-01-28 15:55:17 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-01-28 15:55:17 -0400 |
commit | 7ca8ec00a7fcda71a08d22f06838424765a1b215 (patch) | |
tree | aa377fccb40797a734372127c19177524fa8af2b /Remote/GCrypt.hs | |
parent | 3327618e5b48afb10a8f98afe15c750d8ed4c416 (diff) |
groundwork for parameterizing hash depth
Diffstat (limited to 'Remote/GCrypt.hs')
-rw-r--r-- | Remote/GCrypt.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Remote/GCrypt.hs b/Remote/GCrypt.hs index b977750c3..aed54d20f 100644 --- a/Remote/GCrypt.hs +++ b/Remote/GCrypt.hs @@ -16,6 +16,7 @@ module Remote.GCrypt ( import qualified Data.Map as M import qualified Data.ByteString.Lazy as L import Control.Exception +import Data.Default import Common.Annex import Types.Remote @@ -361,7 +362,7 @@ checkKey r rsyncopts k {- Annexed objects are hashed using lower-case directories for max - portability. -} gCryptLocation :: Remote -> Key -> FilePath -gCryptLocation r key = Git.repoLocation (repo r) </> objectDir </> keyPath key hashDirLower +gCryptLocation r key = Git.repoLocation (repo r) </> objectDir </> keyPath key (hashDirLower def) data AccessMethod = AccessDirect | AccessShell |