aboutsummaryrefslogtreecommitdiff
path: root/Remote/GCrypt.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-01-28 15:55:17 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-01-28 15:55:17 -0400
commit7ca8ec00a7fcda71a08d22f06838424765a1b215 (patch)
treeaa377fccb40797a734372127c19177524fa8af2b /Remote/GCrypt.hs
parent3327618e5b48afb10a8f98afe15c750d8ed4c416 (diff)
groundwork for parameterizing hash depth
Diffstat (limited to 'Remote/GCrypt.hs')
-rw-r--r--Remote/GCrypt.hs3
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