diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-02-09 11:47:35 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-02-09 11:47:35 -0400 |
| commit | 407ea00ce11c145b73a4be6bd4e1354931b4d500 (patch) | |
| tree | 99519e7a99ceca880de1a8266e7bea2f6e4b7724 /Remote/WebDAV.hs | |
| parent | 726684a65cc08ab356a53e4157ef28c36ab9a25b (diff) | |
WebDAV: Set depth 1 in PROPFIND request, for better compatability with some servers. Thanks, wzhd.
Diffstat (limited to 'Remote/WebDAV.hs')
| -rw-r--r-- | Remote/WebDAV.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Remote/WebDAV.hs b/Remote/WebDAV.hs index 35af290ad..87df16e93 100644 --- a/Remote/WebDAV.hs +++ b/Remote/WebDAV.hs @@ -260,7 +260,10 @@ existsDAV :: DavLocation -> DAVT IO (Either String Bool) existsDAV l = inLocation l check `catchNonAsync` (\e -> return (Left $ show e)) where check = do - setDepth Nothing + -- Some DAV services only support depth of 1, and + -- more depth is certainly not needed to check if a + -- location exists. + setDepth (Just Depth1) catchJust (matchStatusCodeException (== notFound404)) (getPropsM >> ispresent True) |