diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-02-09 11:50:40 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-02-09 11:50:40 -0400 |
commit | bc923198dda388a90ba82225d6aa9fc2b75b907d (patch) | |
tree | 80d852bf73e2fcdc662e1146ea18aaa4c9ded2c2 /Remote/WebDAV.hs | |
parent | 407ea00ce11c145b73a4be6bd4e1354931b4d500 (diff) |
WebDAV: Remove a bogus trailing slash from the end of the url to the temporary store location for a key. Thanks, wzhd.
That trailing slash is needed for legacy chunked mode, because it puts the
chunks in a subdir under the key. But, outside legacy chunked mode, it's BS
and it's amazing it worked at all with some webdav servers.
Diffstat (limited to 'Remote/WebDAV.hs')
-rw-r--r-- | Remote/WebDAV.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/WebDAV.hs b/Remote/WebDAV.hs index 87df16e93..a135be466 100644 --- a/Remote/WebDAV.hs +++ b/Remote/WebDAV.hs @@ -339,7 +339,7 @@ storeLegacyChunked chunksize k dav b = finalizer tmp' dest' = goDAV dav $ finalizeStore (baseURL dav) tmp' (fromJust $ locationParent dest') - tmp = keyTmpLocation k + tmp = addTrailingPathSeparator $ keyTmpLocation k dest = keyLocation k retrieveLegacyChunked :: DavHandle -> Retriever |