aboutsummaryrefslogtreecommitdiff
path: root/Remote/WebDAV
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/WebDAV
parent3327618e5b48afb10a8f98afe15c750d8ed4c416 (diff)
groundwork for parameterizing hash depth
Diffstat (limited to 'Remote/WebDAV')
-rw-r--r--Remote/WebDAV/DavLocation.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/Remote/WebDAV/DavLocation.hs b/Remote/WebDAV/DavLocation.hs
index b5d374943..157e7151a 100644
--- a/Remote/WebDAV/DavLocation.hs
+++ b/Remote/WebDAV/DavLocation.hs
@@ -17,6 +17,7 @@ import Utility.Url (URLString)
import System.FilePath.Posix -- for manipulating url paths
import Network.Protocol.HTTP.DAV (inDAVLocation, DAVT)
import Control.Monad.IO.Class (MonadIO)
+import Data.Default
#ifdef mingw32_HOST_OS
import Data.String.Utils
#endif
@@ -33,9 +34,9 @@ keyDir :: Key -> DavLocation
keyDir k = addTrailingPathSeparator $ hashdir </> keyFile k
where
#ifndef mingw32_HOST_OS
- hashdir = hashDirLower k
+ hashdir = hashDirLower def k
#else
- hashdir = replace "\\" "/" (hashDirLower k)
+ hashdir = replace "\\" "/" (hashDirLower def k)
#endif
keyLocation :: Key -> DavLocation