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:
Joey Hess 2014-03-05 13:51:54 -04:00
parent d626a784f3
commit aa377ed567
3 changed files with 14 additions and 0 deletions

View file

@ -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