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 | 0fd5f257d0ef2fcf5047c03be71f1e717ca48844 (patch) | |
| tree | 0970887f6f120686cd279037e42cf0d265672506 /Remote/WebDAV | |
| parent | 037d86e046a9b5693c81dd8b84bb4d114b47e3ac (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 b5d3749430..157e7151a4 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 |