webdav: When built with a new enough haskell DAV (0.6), disable the http response timeout, which was only 5 seconds.
This commit is contained in:
parent
d626a784f3
commit
aa377ed567
3 changed files with 14 additions and 0 deletions
|
@ -386,6 +386,7 @@ matchStatusCodeException _ _ = Nothing
|
|||
#if MIN_VERSION_DAV(0,6,0)
|
||||
goDAV :: DavUrl -> DavUser -> DavPass -> DAVT IO a -> IO a
|
||||
goDAV url user pass a = choke $ evalDAVT url $ do
|
||||
setResponseTimeout Nothing -- disable default (5 second!) timeout
|
||||
setCreds user pass
|
||||
a
|
||||
where
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue