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/WebDAV | |
| parent | 3327618e5b48afb10a8f98afe15c750d8ed4c416 (diff) | |
groundwork for parameterizing hash depth
Diffstat (limited to 'Remote/WebDAV')
| -rw-r--r-- | Remote/WebDAV/DavLocation.hs | 5 |
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 |